用 Form2.Adodc1.Recordset.RecordCount = 0 解决了，谢谢

[此贴子已经被作者于2019-4-23 15:57编辑过]

首先，提交sql 命令后，好像要执行刷新命令
记录集有二个属性，bof  和eof 。

使用ADO连接数据库进行查询的时候，数据库将查询结果返回查询端，在查询端的内存里面就会有一个列表，这个列表存放的就是查询的结果。这个内存中的列表就是数据集。在你的程序里面rs就是表示这个数据集。bof表示rs当前的指针是指在了数据集的前面，比如数据集里面有编号为1，2，3，4的4条记录，但是rs指向的编号是-1，这样就会符合了bof的情况。同理，当rs的指针指向5，而第五条记录并不存在，这样就会产生了eof的情况。
如果同时产生了bof和aof的情况，就是说rs的指针既在上界之外也在下届之外，这样只有一种情况，就是rs所代表的数据集是空的，这样rs的指针无论是指到什么地方都是同时具有bof和eof的属性。
你的情况估计是sql语句查询出来的值是空的，因此数据集也是空的，在读取rs数据集里面的值的时候就会报这个错误。
使用 if rs.bof and rs.eof then 这个判断可以判别rs里面是否有没有数据集，如果符合这个条件，说明数据集是空的，在程序中就要绕开对rs里字段的访问。