在非For.Next的循环结构中怎样运行"进度条"该如何解决

在非For...Next的循环结构中怎样运行"进度条"?
如在While Not Recordset.EOF
  ....
  ....

  Recordset.MoveNext

  Wend

结构中,由于不能设置进度条的最大值与最小值,怎样运用进度条呢?

------解决方案--------------------
自己放个变量做计数器
dim i&
while xxx
 i=i+1
 '根据i/recordset.recordcount算出进度条应该在的位置，设置值后最好再doevents下
wend
------解决方案--------------------
在while循环前设置进度条的最大值和最小值

.
.
进度条的最小值=0
进度条的最大值=rst.RecordCount
while not rst.eof
进度条value=进度条value+1
.
.
wend
.
.
------解决方案--------------------
在while循环前设置进度条的最大值和最小值

.
.
进度条的最小值=0
进度条的最大值=rst.RecordCount
while not rst.eof
进度条value=进度条value+1
.
.
wend
.
.
------解决方案--------------------
不想用rst.RecordCount的话，就像一些软件，进度条从1到100，然后继续从1到100
------解决方案--------------------
要么你就直接用
for i=0 to recordset.recordcount-1
 recordset.move i
 '根据i/recordset.recordcount设置进度条的value
next

'recordset.recordcount表示当前记录集有多少条记录