Progressbar进程条问与答

我需要向数据库录入数据的时候用该控件显示录入过程，因为每次录入的数据大小不同，所以进程条显示得时间要随机改变，当录入完时正好进程条结束，请问如何实现？最好附上原代码。不胜感谢！   例如记录集recordset   中1999年的记录为1000条，当吧这个记录集录入的时候需要一定时间，此时窗体中出现progressbar提示,并随录入进程而改变进程条的显示，下一次又需要录入记录集recordset中2000年的记录为500条，此时进程条显示时间肯定要短，我的问题就是如何用代码改变进程条每次的显示时间

 

先设定  
  progressbar.MIN   =0  
  PROGRESSBAR.MAX   =   RECORDSET.RECORDCOUNT  
  PROGRESSBAR.VALUE   =   0  
  FOR   I   =   0   TO   RECORDSET.RECORDCOUNT   -1  
        '处理你做的事情  
        PROGRESSBAR.VALUE   =   PROGRESSBAR.VALUE   +1    
  NEXT   I