一个查询进度表的有关问题

一个查询进度表的问题?
我在程序中调用存储过程,存储过程的作用是查询某日期段的每日消费合计金额,在数据量大时,速度可能会稍慢些,所以我做了个进度条来显示进度,但在程序中进行查询时,进度条会不动,好像程序只在执行查询.
部分代码如下:
'进度条代码
Private   Sub   Timer1_Timer()
iFlag   =   iFlag   +   10
        pgBar.Value   =   iFlag
        If   pgBar.Value   > =   pgBar.Max   Then
              iFlag   =   0
      End   If
end   sub

'调用存储过程
timer1.enabled=true
ManualBrush.QueryAllBrush   strBrushStartDate,   strBrushEndDate


[解决办法]
首先，查询不是你的程序在做，是数据库。当你提交一个查询给数据库引擎时，你的程序将被阻塞直到查询完成。
其次，如果查询是基于存储过程的一次运行，那根本没办法去知道存储过程的执行进度，进度条也就没有意义。还不如把鼠标指针置为忙碌。