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

Question

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

Answer 1

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

将 menu 另改名

Answer 2

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