A Fast Recordset Loop

A Fast Recordset Loop

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 =


Share the Post: