不用 EOF 以加快記錄循環

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

原文轉自：http://www.kjueaiud.com