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 vote228 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
0 vote201 views1 answer
Vba exit while
VBA
0 vote236 views1 answer
If statement vdhl
VBA
0 vote222 views4 answers
Jwt token vb.net validation
VBA
0 vote217 views1 answer
Find control with name vb
VBA
0 vote218 views1 answer
Delete rows in excel vba code
VBA
3 votes207 views1 answer
Vba make long from two shorts
VBA
0 vote228 views1 answer
Vba foreach 2d array
VBA
0 vote221 views3 answers
Write to text file vb.net
VBA
0 vote230 views1 answer
Excel vba add reference programmatically
VBA