编译错误,"用户定义类型未定义"

Question

Public Function getRS(ByVal sql As String) As ADODB.Recordset  '就是这句发生这个什么用户定义类型未定义这个错误.Dim myconn As New ADODB.Connection
Dim rs As New ADODB.Recordsetstrconnection = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" & "DSN=zjnulibrary;Description=图书馆数据;APP=Visual Basic;WSID=ZJNUV;DATABASE=zjnulibrary;Trusted_Connection=Yes"
On Error GoTo getrs_error  rs.open sql, myconn, 3, 3
  Set getRS = rs
  
getrs_exit:
   Set rs = Nothing
   Set myconn = Nothing
   Exit Function
  
getrs_error:
  MsgBox "发生错误:" & Err.Description, vbOKOnly, "错误警告"
  Resume getrs_exitEnd FunctionPublic Sub sqlexe(ByVal sql As String)
  Dim myconn As New ADODB.Connection
  On Error GoTo sqlexe_error
      myconn.Execute (sql)
      
sqlexe_exit:
     Set myconn = Nothing
     Exit Sub
      
sqlexe_error:
     MsgBox "发生错误:" & Err.Description, vbOKOnly, "错误警告"
     Resume sqlexe_exitEnd SubSub main()
  Dim newfrm As New MDIForm1
   newfrm.Show
End Sub

Answer 1

是要在部件里加入 ado 这个控件吗? 
已经加了啊.

Answer 2

楼主借地方用一下啊，谢谢
我在建立根节点的时候用的是这样的代码
Private Sub Form_Load()
    Dim NodX As Node
    Do While Data1.Recordset.EOF
        Set NodX = TreeView1.Nodes.Add(, , Chr(Data1.Recordset.Fields("编号1").Value), Data1.Recordset.Fields("公司").Value)
        NodX.Tag = Data1.Recordset.Fields("编号1")
        Data1.Recordset.MoveNext
    Loop
End Sub
系统老是报错“错误91，对象变量或with块变量未设置”
我明明把data控件设定好了，数据库也绑定正确，真是奇怪啊！

Answer 3

在引用-〉选择Microsoft ActiveX Data Objects 2.X Library，其中X为版本号

Answer 4

to  yunfeng007(一水寒) 
能不能帮我解决一下问题！

Answer 5

chaoren119119(chaoren)：虽然我的数据库是一塌糊涂~~~Recordset不是现成的，需要取得的。我一般不用Data，用数据环境的，要获得一个Recordset必须执行查询语句。反正好像是这样。最好不要在其他人的帖子上发自己的问题（散分贴上最好也不要这样）。如果你遇到可用分的问题，可以到非技术区的可用分资助站寻求帮助。特别是问题很多的情况，一定要合理安排分数，注意提问技巧。