VB6.0执行Select操作后结果集rs的movenext报错-2147467259

小弟写了这样一个程序，首先连接一个数据库查询出自己想要的数据条目，并存为结果集RS。
然后从结果集中RS逐条读出向另一个数据库服务器进行操作（insert，update，delete）。
在执行过程中发生如下的问题：
当执行到结果集的130条或129条时，执行movenext出错，错误号为Err.number=-2147467259
请各位大哥帮忙分析下原因，并说说怎么能解决。
connection中的Provider和Driver均已设置。数据为SQL Server --------------------编程问答-------------------- 有没有判断是否为末条记录？
--------------------编程问答--------------------

引用 1 楼  的回复:

有没有判断是否为末条记录？

绝对有。 --------------------编程问答-------------------- ADO Error #   -2147467259
   Description   [Microsoft][ODBC Microsoft Access 97 Driver] Couldn't find
                 file '(unknown)'.
   Source        Microsoft OLE DB Provider for ODBC Drivers

--------------------编程问答-------------------- if not rs.eof then rs.movenext
加这么一条就行了 --------------------编程问答-------------------- 楼主把详细错误信息贴出来

越详细越好 --------------------编程问答--------------------

引用 4 楼  的回复:

if not rs.eof then rs.movenext
加这么一条就行了

已经有此判断。 --------------------编程问答-------------------- 代码的错误可能性不大，因为放在另一个环境下，测试了800多条的数据通过，无报错。 --------------------编程问答-------------------- 顶上，求帮助。 --------------------编程问答-------------------- 加一条 on error resume next 看看可以不可以正常运行，会不会影响数据更新什么的，如果没事的话就。。。哈哈， --------------------编程问答-------------------- 楼主确认是用 EOF 属性判断的，而不是记录数？

如果是记录数，一要用客户端游标，二要先行 MoveLast 取回记录数。

补充：VB ,  数据库(包含打印，安装，报表)