vb6 insert into ... 是否能返回已经运行成功的提示？

do until rs.eof ' 大约有5万多条记录
  conn.execute("insert into ....")
  rs.movenext
loop我在做本地向网络导数据的功能，上面的代码在运行的时候，虽然数据在走，但是机器卡住了，请问有什么方法能让机器不卡住？上面的程序是不是5万多条记录一起上传的，所以卡住了？我在想是否能一条传完再传下一条，这样就不会卡了吧。