Question

为什么提示变量未定义

Option Explicit
Public intMyTimes As Integer
Const MaxTimes As Integer = 3
Private Sub Form_Load()
intMyTimes = 1 '给变量赋初值
cboUserName.Addltem "管理员" '向组合框添加新值
cboUserName.Addltem "管理员1" '向组合框添加新值
cboUserName.Addltem "管理员2" '向组合框添加新值
End Sub
Private Sub cmdOK_Click()
If cboUserName.Text <> "" Then '如果操作员不为空
If txtPassword.Text = "" Then '判断密码是否为空
MsgBox "请输入密码" '弹出提示对话框，提示输入密码
txtPassword.SetFocus '设置焦点位置
Else '否则
If txtPassword.Text <> "11" Then '如果密码不是”11“
If txtMyTimes > MaxTime Then '判断密码是否为空
MsgBox "您无权使用该软件" '弹出提示对话框
End
Else '否则提示密码不正确
intMyTimes = intMyTimes + 1 '每输入一次错误密码，变量intMyTimes就加1
MsgBox "密码不正确，请重新输入" '弹出提示对话框
txtPassword?SetFocus '设置焦点
End If '结束
Else
MsgBox "登陆成功！" '弹出提示对话框
End If
End If
Else '弹出提示对话框不能为空
MsgBox "操作员不能为空" '弹出提示对话框
Exit Sub '退出过程
End If
End Sub
Private Sub cmdCancel_Click()
End '退出程序
End Sub

Answer 1

出现这种错误，一般是因为Adodc1.Recordset
尚未与数据库表建立有效连接。
你可以在黄色这行的前面加入一行下列语句进行测试就知道了：
MsgBox Adodc1.Recordset.State
如果显示为2，就表示Recoedset处在关闭状态，
这时候如果直接使用就会提示块with变量未定义了