VBA Loop through recordset

The solution for this is noted below

VBA Loop through recordset

Solution

'The short version
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Contacts")
If Not (rs.EOF And rs.BOF) Then
	Do Until rs.EOF = True
		rs.MoveNext
	Loop
End If
rs.Close
Set rs = Nothing

Try other methods by searching on the site. That is if this doesn’t work