通常我们使用以下的代码进行记录循环：
　　Do while not records.eof
　　combo1.additem records![Full Name]
　　records.movenext
　　loop

　　结果是每个循环中数据库都要进行一次数据结束测试。在大量的记录的情况下， 浪费的时间相当大。 而使用以下的代码， 可以提高近 1/3 的速度：
　　records.movelast
　　intRecCount=records.RecordCount
　　records.movefirst

　　for intCounter=1 to intRecCount
　　combo1.additem records![Full Name]
　　records.movenext
　　next intCounter