请问VB
3001错误是什么错误?
怎样解决?
3Q..

我要做查找的功能...
代码:
Private Sub cmdGO_Click()
adoDate.Recordset.Find Find & "=" & "'" & txtSearchID.Text & "'"

If adoDate.Recordset.EOF Then
Dim msg As Integer
msg = MsgBox("Sorry,this list didn't exist", 10, "Search Result")
txtSearchID.Text = ""
adoDate.Recordset.MoveFirst
End If

End Sub

运行...3001错误...

[此贴子已经被作者于2007-5-14 21:55:43编辑过]

Private Sub ExBtn1_Click()
Dim str1, str2 As String

str1 = Text1.Text
If str1 <> "" Then
str2 = "name='" & str1 & "'"
Data1.Recordset.FindFirst str2
If Data1.Recordset.NoMatch Then
MsgBox "无此人"
Data1.Recordset.MoveFirst
End If
End If
End Sub