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 vote123 views1 answer
Ribbon show/hide
VBA
0 vote129 views1 answer
Method showalldata of object _worksheet failed vba
VBA
0 vote112 views1 answer
Excel protect cells with formulas
VBA
1 vote141 views1 answer
Vba optional
VBA
0 vote125 views1 answer
How to use if condition in time vba
VBA
0 vote134 views1 answer
Vba keep command window open
VBA
0 vote130 views1 answer
How to mount floppy disks in vb.net
VBA
5 votes149 views1 answer
Excel vba get low byte from INTEGER
VBA
1 vote124 views1 answer
Excel vba last column in range
VBA
0 vote130 views1 answer
Worksheet.pastespecial textbox
VBA