我是新新手，还在学习的过程中。百度了一个教VB和SQl连接的例子，自己试了很久，还是不对，只能求教了，希望大家帮帮忙，谢谢了！！！
Option Explicit
Dim myCnn   As New ADODB.Connection   '声明一个连接对象变量。
Dim myRs    As New ADODB.Recordset     '声明一个记录集对象变量。
Dim myStr As String                       '定义一个字符串变量，用以保存连接字符串。


Private Sub Command1_Click()
 myCnn.Open
    myRs.Open "select * from我的帐目where 日期='" & Text1.Text & "'", myCnn, adOpenDynamic, adLockOptimistic
If myRs.RecordCount = 1 Then             '如果找到一条记录
'在文本框中回显库内信息
Text2.Text = myRs("收入")
Text3.Text = myRs("支出")
Else
MsgBox "库中没有你要的信息！"      '如果没找到记录，给出提示
End If
    myRs.Close                        '关闭记录集
    myCnn.Close                       '关闭连接

End Sub

Private Sub Command2_Click()

    Set myRs = Nothing         '释放记录集变量
    Set myCnn = Nothing        '释放连接变量
    End

End Sub

Private Sub Form_Load()
myStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=流水帐;Data Source=."
'给连接字符串赋值
    myCnn.ConnectionString = myStr

End Sub
运行后说是编译错误：用户定义类型未定义。
不会改，好心人帮帮忙好吗，谢谢了！

工程->引用 ,勾到引用下面这个对象
Microsoft ActiveX Data Objects 2.5 Library

我找了几遍都没找到……我安的版本问题吗？

谢谢，我找到了！感谢啊。