VB访问本地数据库求解
在百度里面找到程序，正在学习中。在本地建一个数据库，库名为“liushuizhang2”，在库中再建一个表，表名为“my”，库中有4列，列名为：number、date、income、cost，其中“number”为主键。在表中输入一些数据，作调试用。在VB中，“工程\引用”里添加对ActiveX数据对象的引用。在VB中建一个窗体，放三个文本框，及两个按钮，caption属性分别为“显示”、“退出”。功能：窗体启动时，系统做连接数据库的前期准备。在第一个文本框中输入日期，点击按钮“显示”，程序会连接数据库，并从库中读出对应日期的“收入”与“支出”数据， 在另两个文本框中显示出来。然后关闭记录集。点击按钮“退出”时，释放变量，退出数据库。
运行了以后发现，无论我在对话框里面输入与否，都显示的我设置的无结果返回语句：库中没有你要的信息！找不到原因了，还请大家帮帮忙，谢谢了！！
Option Explicit
Dim myCnn As New ADODB.Connection '声明一个连接对象变量。
Dim myRs As New ADODB.Recordset '声明一个记录集对象变量。
Dim myStr As String '定义一个字符串变量，用以保存连接字符串。
Private Sub Form_Load()
myStr = "Provider=SQLOLEDB.1;uid=sa; pwd=123456; Integrated Security=SSPI; Persist Security Info=True; database=liushuizhang2;Data Source=(local)"
'给连接字符串赋值
myCnn.ConnectionString = myStr
End Sub
'显示按钮事件
Private Sub Command1_Click()
'myStr = "Provider=SQLOLEDB.1;uid=sa; pwd=123456; Persist Security Info=True; database=流水帐;Data Source=LocalServer"
myCnn.Open
'myRs.Open "select * from 我的帐目where 编号='" & Text1.Text & "'", myCnn, adOpenDynamic, adLockOptimistic
myRs.Open "select * from my where number=' " & Text1.Text & "'", myCnn, adOpenDynamic, adLockOptimistic
If myRs.RecordCount >= 1 Then '如果找到一条记录
'在文本框中回显库内信息
Text2.Text = myRs("income")
Text3.Text = myRs("cost")
Else
MsgBox "库中没有你要的信息！" '如果没找到记录，给出提示
End If
myRs.Close '关闭记录集
myCnn.Close '关闭连接
End Sub
'退出按钮事件
Private Sub Command2_Click()
Set myRs = Nothing '释放记录集变量
Set myCnn = Nothing '释放连接变量
End
End Sub
