VB6.0出现状况：对象变量或with块变量未设置， 请问怎么解决？？？

Question

Private Sub cmd_ok_click()
Adodc1.Recordset.Find "用户名='" & Text1.Text & "'"
If Adodc1.Recordset.EOF Then
MsgBox "用户名不存在", vbOKOnly, "提示"
ElseIf (Adodc1.Recordset.Fields("口令") <> Text2.Text) Then
MsgBox "密码不正确", , "提示"
numlogin = numlogin + 1
Else
MsgBox "登录成功", , "提示"

username = Text1.Text
Unload Me
menu.Show
End If

End Sub

Answer 1

给对象起名字不能和vb6的关键字、函数等冲突将 menu 另改名

Answer 2

应该是这行（Adodc1.Recordset.Find "用户名='" & Text1.Text & "'"）会出问题吧。看代码，这行以下的代码应该都是没有问题的。所以，要检查Adodc1.Recordset对象是否已经打开。&nbsp;如果确定已经打开，则可在Adodc1.Recordset.Find "用户名='" & Text1.Text & "'"前加上Adodc1.Recordset.movefirst试试。 &nbsp;