Do while not records.eof
combo1.additem records![Full Name] records.movenext loop 'The problem is that everytime the database moves to the next 'record it must make a check to see if it has reached the end 'of the file. This slows the looping down a great deal. 'When moving or searching throuch a large record set this can 'make a major difference. Here is a better way to do it. records.movelast intRecCount=records.RecordCount records.movefirst for intCounter=1 to intRecCount combo1.additem records![Full Name] records.movenext next intCounter 'You should see about a 33% speed increase. |