以下代码在VB6 里面怎么运行不了？

Question

怎么提示: User-Defined Type not definedFunction Sqlser_time() As Date  
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset    cnn.ConnectionString = "driver={SQL Server};" & _
        "server=SER;uid=trace;pwd=traceaeclmis;database=master"
    cnn.Open
    cmd.ActiveConnection = cnn
    cmd.CommandText = "SELECT GETDATE() AS sys_Sqlser_time"Set rst = cmd.Execute
    
Sqlser_time = rst(0)rst.Close
cnn.CloseEnd Function

Answer 1

点"工程"-"引用"-找到"Microsoft ActiveX Data Object 2.8

Answer 2

点“工程”-->“引用” Microsoft Activex Data Object 2.X Library 打钩

Answer 3

cmd.CommandText = "SELECT GETDATE() AS sys_Sqlser_time" 
这一句没有from 怎么能执行?

Answer 4

点"工程"-"引用"-找到"Microsoft ActiveX Data Object 2.8

Answer 5

Function Sqlser_time() As Date  看这个

Answer 6

点“工程”-->“引用” Microsoft Activex Data Object 2.X Library 打钩