在全局函数或过程中，使用RECORDSET出现错误，无法移动记录

Question

我在模块中定义了一个全局过程，并在此过程中定义了一个recordset,在使用recordset.movenext时出错
public sub getstr()
Dim resA As ADODB.RecordsetresA.Open "select * from 基站设置 where 计算机名='server'", pubconn, adOpenKeyset, adLockReadOnlyDo While Not resA.EOF........resA.movenext'执行此句就出错退出loop
.........
end sub经测试，用movefirst也不能用

Answer 1

怎么没有看到你的ADODB.Connection对象？如果没有，你这个代码就是错误的。
错误提示是什么内容？

Answer 2

http://download.csdn.net/source/1498324

Answer 3

pubconn 是全局变量，已经作了定义

Answer 4

resA.Open "select * from 基站设置 where 计算机名='server'", pubconn, adOpenKeyset, adLockReadOnly
没有查到记录就会出错。应先判断一下：
If rst.BOF And rst.EOF Then exit sub

Answer 5

resA.Open "select * from 基站设置 where 计算机名='server'", pubconn, adOpenKeyset, adLockReadOnly没有查到记录后面就会出错，要先判断一下。