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 vote247 views1 answer
Do while not vb.net
VBA
0 vote251 views4 answers
How to continue formula in below line in vba code
VBA
0 vote237 views1 answer
Excel vba address not absolute
VBA
0 vote249 views1 answer
Vba add shape oval
VBA
0 vote245 views1 answer
Vba len variant
VBA
1 vote264 views1 answer
Excel how to format bytes as KB, MB, GB
VBA
0 vote243 views1 answer
Type excel.application is not defined vb
VBA
18 votes328 views3 answers
Excel-vba make integer
VBA
0 vote242 views1 answer
Set column width of datagridview vb.net
VBA
0 vote227 views1 answer
Refresh token em vb net
VBA