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 vote245 views1 answer
Vba clear collection
VBA
8 votes244 views1 answer
Excel vba determine number of elements in a 1D array
VBA
20 votes304 views1 answer
Excel vba factorial
VBA
0 vote255 views1 answer
Vba listbox remove all items
VBA
0 vote227 views1 answer
Show unix time in vba
VBA
0 vote244 views1 answer
Vba remove the first character of string
VBA
0 vote221 views1 answer
Do until vb.net
VBA
0 vote229 views1 answer
Vba string start with
VBA
0 vote255 views1 answer
Method showalldata of object _worksheet failed vba
VBA
0 vote238 views1 answer
Excel vba show developer tab
VBA