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 vote361 views1 answer
Send text to clipboard vb.net
VBA
2 votes348 views1 answer
Excel vba check if string entirely numeric
VBA
0 vote332 views1 answer
Vb.net visible property dgv collumn not working
VBA
0 vote401 views1 answer
Vba nested dictionary
VBA
31 votes500 views1 answer
Excel vba function to convert column number to letter
VBA
0 vote368 views1 answer
Vba multiple optional arguments
VBA
0 vote342 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA
0 vote343 views1 answer
Combobox dropdown search visual basic -excel -C#
VBA
0 vote375 views1 answer
Nested if else in vb.net
VBA
22 votes743 views1 answer
Excel vba check if directory exists
VBA