How to loop through adodb.recordset
Sub ADOLooping()
On Error GoTo ErrorHandler
Dim strSQL As String
Dim rs As New ADODB.Recordset
'we will be opening tblTeachers
strSQL = "tblTeachers"
rs.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
With rs
'Ensure recordset is populated
If Not .BOF And Not .EOF Then
'not necessary but good practice
.MoveLast
.MoveFirst
While (Not .EOF)
'print info from fields to the immediate window
Debug.Print rs.Fields("teacherID") & " " & rs.Fields("FirstName")
.MoveNext
Wend
End If
.close
End With
ExitSub:
Set rs = Nothing
Exit Sub
ErrorHandler:
Resume ExitSub
End Sub