Dim cnn As ADODB.Connection
   Dim rs1 As ADODB.Recordset, rs2 As ADODB.Recordset
   Dim strSQL1 As String, strSQL2 As String
   Set cnn = CurrentProject.Connection
   Set rs1 = New ADODB.Recordset
   Set rs2 = New ADODB.Recordset
   strSQL1 = "SELECT GroupID, description1, " _
       & "description2, description3, description4, description5, " _
       & "description6, description7, Comment, Control, Node, Selectable "
_
       & "FROM lstDelays; "
   rs1.Open strSQL1, cnn, adOpenDynamic, adLockOptimistic
   rs1.MoveFirst
   Do While rs1.EOF = False
   'Do some stuff here
   rs1.MoveNext
   Loop
   rs1.Close
   cnn.Close