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

0 vote117 views1 answer
Dlete rows with blanks and space " " vba
VBA
0 vote126 views1 answer
Remove series name from legendvbnet
VBA
0 vote135 views1 answer
Vba remove last vbcrlf
VBA
1 vote73 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote125 views1 answer
Vba word pdf table to excel
VBA
3 votes129 views1 answer
Excel vba change format of cell
VBA
-1 vote113 views2 answers
How close excel through visual basic
VBA
8 votes151 views1 answer
Vba make integer
VBA
0 vote119 views1 answer
Vba line feed
VBA
1 vote131 views1 answer
Excel vba array remove first
VBA