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 vote302 views1 answer
Vba foreach 2d array
VBA
0 vote263 views1 answer
Vba code to select image in sheet
VBA
0 vote295 views1 answer
Vbnet revrese the order of character in string
VBA
0 vote268 views1 answer
Vbnet line graph smooth lines
VBA
0 vote253 views1 answer
Vba first line of string
VBA
0 vote306 views1 answer
Excel vba first column in range
VBA
8 votes395 views1 answer
Excel vba make word from bytes
VBA
0 vote275 views1 answer
Excel vba Column Name to Column Number
VBA
0 vote274 views1 answer
Make all controls in an area not visable vb
VBA
1 vote302 views1 answer
Excel how to format bytes as KB, MB, GB
VBA