VBA如何判断SQL查询结果为空？

助子

我用VBA连接进入SQL拿数据，其中有如下语句：
imsg=cells(1,1).value
CH=''select job from item where item=' ''+imsg+'' ' ''
rs.open CH,cn,3,1
rs.close
就是拿cells(1,1)中的值作为item进行查询相关的job，然后后面会有其他取出数据等的相关操作，这部分的语句的问题在于，当查询的结果为空，也就是cells(1,1)的值在SQL中的item里不能找到的时候就会出错，于是我想加一个判断语句，当查询结果为空的时候就跳到其他地方，那么这个判断语句应该如何加？加在哪里呢？

Renco

rs.open CH,cn,3,1
后加一句
if rs.eof=ture then
msgbox "无记录"
exit sub
endif

助子

谢谢Renoc的帮助，当出现查询为空的时候，我不会让它停下来，而是用goto语句跳到其他地方，但是按照你的方法做了之后，又出现以下问题：
Operation is not allowed when the object is open
又改如何解决呢？谢谢。

zhao__feng

if rs.eof and rs.bof then
rs.close
cn.close
set rs=nothing
set cn=nothing
你自己的语句
endif
试试