VBA Loop through recordset

'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

Source: stackoverflow.com

Similar codes

1 vote144 views1 answer
Excel vba force recalculation
VBA
0 vote141 views1 answer
Vba shape transparent
VBA
6 votes158 views1 answer
Excel vba isalpha
VBA
2 votes131 views2 answers
Excel vba copy values range to another range
VBA
0 vote155 views1 answer
Excel vba named range exists
VBA
0 vote139 views1 answer
Vbnet check if number is even or odd
VBA
0 vote216 views1 answer
Application.ExecutablePath VB.NET
VBA
0 vote148 views1 answer
Vba exit while
VBA
0 vote176 views1 answer
How to call gcd in vba
VBA
0 vote141 views1 answer
Method showalldata of object _worksheet failed vba
VBA