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 vote170 views1 answer
Excel vba select multiple shapes
VBA
0 vote184 views1 answer
Excel vba extract year
VBA
0 vote186 views1 answer
Check if program is running vbnet
VBA
2 votes173 views2 answers
Excel vba copy values range to another range
VBA
0 vote180 views1 answer
Excel vba copy entire sheet paste values
VBA
3 votes185 views1 answer
Vba double quote
VBA
8 votes197 views1 answer
Excel vba make integer
VBA
-1 vote188 views2 answers
Excel vba delete empty rows
VBA
0 vote199 views1 answer
Search for text in every worksheet excel visual basic
VBA
0 vote190 views1 answer
Vba count all row
VBA