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

5 votes206 views1 answer
Excel vba last byte from INTEGER
VBA
4 votes220 views1 answer
VBA Deep Clone Dictionary
VBA
0 vote188 views1 answer
Vba remove the first character of string
VBA
0 vote189 views1 answer
Vba word pdf table to excel
VBA
0 vote198 views1 answer
Vba foreach 2d array
VBA
0 vote188 views1 answer
Vb ternary
VBA
1 vote170 views1 answer
Excel vba get column name from number
VBA
0 vote175 views1 answer
Vba file size
VBA
0 vote177 views1 answer
Worksheet.pastespecial textbox
VBA
0 vote187 views1 answer
Excel vba named range exists
VBA