Do while not records.eof
combo1.additem records![Full Name]
records.movenext
loop

結(jié)果是每個(gè)循環(huán)中數(shù)據(jù)庫都要進(jìn)行一次數(shù)據(jù)結(jié)束測試。在大量的記錄的情況下， 浪費(fèi)的時(shí)間相當(dāng)大。 而使用以下的代碼， 可以提高近 1/3 的速度：

records.movelast
intRecCount=records.RecordCount
records.movefirst

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