下面的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

Dim rspasswd As ADODB.Recordset

应该写 Dim rspasswd As new ADODB.Recordset

• ·全球几大化妆品中，那个品牌的化妆对油性皮肤对实
• ·街头霸王里美国的 古烈 腰围多少?
• ·PHP的简单问题
• ·督察是干什么地
• ·请问3100如何设置发过的信息不要在“已发信息
• ·浙江上虞一带的人喜欢什么口味的食物？
• ·民事纠纷问题！
• ·EXCEL表中，如何引用一列数据中最下面的数据
• ·郑州有什么便宜的地方可以带女朋友去玩？
• ·四大发明火药的图片