if rs1.eof then
exit do
end if
rs1.movenext
把所有这样的语句改成
if not rs1.eof then rs1.movenext
if rs1.eof then exit for
就行了
高半天是我的循环语句有点问题,数据到末尾的时候还要movenext

我的逻辑是没问题的