送你一个延迟函数单位毫秒
创新互联凭借专业的设计团队扎实的技术支持、优质高效的服务意识和丰厚的资源优势，提供专业的网站策划、网站建设、做网站、网站优化、软件开发、网站改版等服务，在成都10余年的网站建设设计经验，为成都成百上千家中小型企业策划设计了网站。
Public Sub delay(ByRef Interval As Double)
On Error Resume Next
Dim time As DateTime = DateTime.Now
Dim Span As Double = Interval * 10000000 '因为时间是以100纳秒为单位。
While ((DateTime.Now.Ticks - time.Ticks) Span)
Application.DoEvents()
End While
End Sub
你可以将连接到数据库进行的操作分成子任务，然后设定进度，例如要做10件事，每做完一件演示一个动画。至于动画，你可以用Flash做一组图片然后用图片框根据进度动态显示。希望能帮到你。采纳请插旗。
你必须用多线程。因为你当前的线程正在执行查询语句，所以界面不会刷新，你也不会看到任何等待窗口。