菜鸟提问:实时错误'91'

Question

嘻嘻,菜鸟NATA来提问拉,很早的一个程序,最近打开要运行的时候
不知为何老是提示这个错误:
实时错误'91':
对象变量或WITH块变量未设置然后点调试的时候,就在
MySql = "select lanmu from lanmu"
 Set rs = cm.OpenResultset(MySql)
Do Until rs.EOF
红色的地方不懂什么地方出错,
每个窗体的都一样,在Set rs = cm.OpenResultset(MySql)这里出错
各位XDJM们帮忙哦哦

Answer 1

我曾经也问过类似问题。这里就借花献佛了！（下问是别人给我的解答）你上面提供的代码都没问题，不过我没有看见你绑定数据库的语句或者你是否在设计时进行了正确的设置。 上述问题的原因可能是Adodc1.Recordset 绑定的数据库连接不正确，无法打开记录集（或数据库表）所致，当Adodc1.Recordset数据绑定不正确时，Adodc1.Recordset对象返回Nothing，这样对象就不存在，所以无法执行Find方法及后续操作。 你可以在With语句前加上一句测试的代码： If not Adodc1.Recordset.EOF Then 
With Adodc1.Recordset 
.Find "用户名='" & CurrentUserName & "'" 
.Fields("密码") = Trim(txtNewPWD(0)) 
.Update 
End With 
Else 
Msgbox "数据库绑定错误！" 
Exit Sub 
End If 试一下。

Answer 2

OpenResultset 的代码？连接对象 cn 是否已经打开？