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 vote335 views1 answer
Excel vba chrw max value
VBA
0 vote336 views1 answer
Search for text in every worksheet excel visual basic
VBA
0 vote334 views1 answer
Vba collection key list
VBA
0 vote327 views1 answer
Vb run command
VBA
2 votes329 views2 answers
Vba code to remove duplicates from a column
VBA
-1 vote317 views1 answer
Text to speech vb.net
VBA
0 vote333 views1 answer
Ribbon show/hide
VBA
0 vote316 views1 answer
Vba add month to date
VBA
0 vote360 views1 answer
Open file dialog in vb.net
VBA
4 votes331 views1 answer
Excel vba how to get a range's full address including sheet name
VBA