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 vote162 views1 answer
How to get the value of optionbutton in vba
VBA
0 vote194 views2 answers
Get unique random number in vb.net
VBA
0 vote178 views2 answers
Get excel file from email attachment in vba
VBA
2 votes168 views2 answers
Constructor vb.net
VBA
0 vote176 views1 answer
Vlookup columns not next to each other
VBA
0 vote189 views1 answer
Vba sheet hide unhide
VBA
0 vote177 views1 answer
Vba collection contains
VBA
0 vote221 views1 answer
Wpf dark title bar
VBA
0 vote175 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
1 vote164 views1 answer
Excel vba compare 2 rows
VBA