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