Opening recordsets as ForwardOnly or ReadOnly makes them move faster between records. In addition, storing fields to variables before begining the loop speeds up field access. Example:
* Create a new Standard EXE project * Add a reference to the ADO Libery * Add a listbox to Form1 * Add the following lines of code to Form1() Option Explicit Private Sub Form_Load() Dim rsTemp As ADODB.Recordset Dim fldEmployeeID As ADODB.Field Dim fldFirstName As ADODB.Field Dim fldLastName As ADODB.Field Const ConnectionString =