是的。

对于数据表遍历这样的不需要用到循环值的循环
最好不要用FOR循环
你用
do While not rs.Eof

loop
这样就不会出现你说的问题
另外，最好在循环前做一个判断
可以让程序更好理解
if rs.eof then
msgbox "数据库中没有记录"
exit sub
else
rs.movefirst
endif