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 vote211 views1 answer
Change "location" of binding navigator vb
VBA
0 vote232 views1 answer
Vbnet check if sting contians symbols
VBA
0 vote217 views1 answer
Vba text to general
VBA
0 vote235 views1 answer
Pivot data source not accepting table named range vba
VBA
0 vote228 views1 answer
Vba type variable
VBA
0 vote220 views1 answer
Vba border weight
VBA
8 votes376 views1 answer
Excel vba make a short integer from two bytes
VBA
0 vote246 views1 answer
Vba search string position
VBA
0 vote226 views2 answers
How to concatenate more than 40 lines in vba
VBA
0 vote256 views1 answer
How to mount floppy disks in vb.net
VBA