一个关于数据库查找的问题

Question

我在窗体上放了一个Data控件，取名为Data1,
放了一个文本框取名为Text1,放了一个按扭取名为button1,我想在文本框中输入信息，然后按按扭实现数据库的查找编码如下：Private Sub Command1_Click()
  Data1.DatabaseName="d:\student.mdb"
  Data1.RecordSource = "SELECT * FROM 读者 WHERE 读者号= 'Text1.text' "
  Data1.Refresh
End Sub我试了好多次，都是recordsource属性设置有错
请知道的高手指点一下，以帮我解决燃眉之急
谢谢了！！！

Answer 1

这个上用ADODC控件的
不要用什么DATA了
Option Explicit
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String
Private Sub cmdOK_Click()
str = "SELECT * FROM 读者 WHERE 读者号= 'Text1.text' "
  Set con = New ADODB.Connection
    Set rs = New ADODB.Recordset
    con.Provider = "Microsoft.Jet.OLEDB.4.0"
    con.Open ="d:\student.mdb"
  
    rs.Open str, con, adOpenDynamic, adLockOptimistic
    wxyname = Trim(txtUserName.Text)
    Dim wxypass As String
    wxypass = Trim(txtPassword.Text)
    If rs.EOF And rs.BOF Then    
         MsgBox "用户名错误，再试一次！", , "登录"
        'txtPassword.SetFocus
        'txtPassword.SelStart = 0
        'txtPassword.SelLength = Len(txtPassword.Text)
    Else
        
        Me.Hide
end if
end sub