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