vb运行出错 424

Private Sub Command1_Click()
Dim Conn, Reco
Set Conn = CreateObject("ADODB.Connection")
Set Reco = CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\例子\Book\book_manage_db.mdb"
Dim s As String
Dim a As String
Data1.RecordSource = "select * from xsda where 姓名 = " & "'" & Text1.Text & "'"
Data1.Refresh
If Data1.Recordset.EOF Then
a = MsgBox("查询结束!")
Data1.RecordSource = "xsda"
Data1.Refresh
End If
End Sub

Private Sub Text1_Change()
Do While Recordset.EOF
Print "用户名: " & Recordset("用户名").Value & "密码: " & Recordset("密码").Value
Recordset.MoveNext
Loop
Recordset.Close
Do While Recordset.EOF
Print "用户名: " & Recordset("用户名").Value & "密码: " & Recordset("密码").Value
Recordset.MoveNext
Loop
Recordset.Close
End Sub
运行的时候说错误424 缺少对象 不知道如何改 看了一些答案 在我这都不管用 不知道那位高手能指点

Private Sub Text1_Change()
Do While Recordset.EOF
Print "用户名: " & Recordset("用户名").Value & "密码: " & Recordset("密码").Value
Recordset.MoveNext
Loop
Recordset.Close
Do While Recordset.EOF
Print "用户名: " & Recordset("用户名").Value & "密码: " & Recordset("密码").Value
Recordset.MoveNext
Loop
Recordset.Close
End Sub

这里面的所有Recordset都没有指明对象啊？所以说缺少对象。换成 Data1.Recordset看看

另外，你这段代码还有很多错误：
Do While Recordset.EOF
要改为：
Do Until Data1.Recordset.EOF
或：
Do While Not Data1.Recordset.EOF

还有
Dim Conn, Reco
Set Conn = CreateObject("ADODB.Connection")
Set Reco = CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\例子\Book\book_manage_db.mdb"
这几句貌似是完全多余的
另外，你的Data1控件DatabaseName属性设置了吗？
Text1_Change()里面的语句重复输入了两遍，难道是笔误？
总之，你这段代码要改的地方可能比正确的地方还多 ^_^

不懂数据库