这个常见的功能我实现不了,求助!!!!

Question

用timer控件及时检测进度就好了啊。

Answer 1

做一个显示信息的form:frmmsg
上面放一个image 、 label提示信息
在你的主程序中删除纪录时调用显示，完成后再卸载sub delrecord()
  ... 
  frmmsg.show 
   do while not rs.eof
   '删除纪录代码
   ...
   '如果需要实时更新信息，就可以这样
   frmmsg.lable1="xxxxxxxxxx.... "
   loop
   
   unload frmmsg
   ...
end sub 

Answer 2

本人也有类似问题。
比如连接数据库的时间可能较长，这时想出现一个窗口显示 正连连接数据库
如：
Dim CN As New Adodb.Connection
CN.Open "..."
frmConnect.Show这时frmConnect中的Label控件显示不出来，窗体里一片空白，请问这是怎么回事？

Answer 3

先frmConnect.Show，然后CN.Open "..."

Answer 4

coolstar(冷星)说得不错，循环中最好加上DoEvents