How to Speed Up Database Access

Here is a trick to loop through a recordset faster. Often when looping through a recordset people will use the following code:

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

---