下面的VB程序为什么老是提示说变量或with模块没有设置?有没有哪们老兄能告诉我?谢谢啦!

Private Sub cmdLockSys_Click()
Dim rspasswd As ADODB.Recordset
Dim err As Boolean
err = False
rspasswd.Open "Select * From SysInfo Where Item='password'", cnExam
If rspasswd.EOF And rspasswd.BOF Then
err = True
ElseIf rspasswd("Value1") = "" Then
err = True
End If
If err Then
MsgBox "您没有为考试系统服务器管理器设置密码,请使用系统功能中的'修改管理员密码'功能,先设置一个密码,再锁定系统!", vbOKOnly + vbExclamation, "错误"
Exit Sub
End If
rspasswd.Close
cmdLockSys.Enabled = False
cmdChgPasswd.Enabled = False
cmdExit.Enabled = False
cmdMngStd.Enabled = False
cmdMngExam.Enabled = False
cmdViewSID.Enabled = False
cmdViewExamInfo.Enabled = False
cmdViewScore.Enabled = False
cmdViewSchedule.Enabled = False
IsLocked = True
picLockSys.Visible = True
txtUnlock.Text = ""
cmdUnlock.Enabled = False
txtUnlock.SetFocus
End Sub
这里

下面的VB程序为什么老是提示说变量或with模块没有设置?有没有哪们老兄能告诉我?谢谢啦! y请问为什么我的电脑老是提示下面的话 我这个VB程序怎么老是提示我“下标越界”？？？ 为什么电脑老是出现程序出错的提示？ 拜托，谁能告诉我为什么下面这个vb程序老是蹦出来缺少列表符或） 为什么关机是老是提示说"结束程序-Sample"??? 为什么老是提示我说INSERT INTO 语句的语法错误 为什么老是提示新安装了程序? 我的电脑老跳出下面情况,帮帮忙!XP操作系统的问题 老是提示出现程序错误~ 我的杀毒软件是卡巴，最近老是提示有广告程序，但是删除不了，提示说没发现对象