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 vote205 views1 answer
Rotate image by any angle vb.net
VBA
0 vote205 views1 answer
Excel vba StartUpPosition
VBA
0 vote203 views1 answer
Excel vba ternary
VBA
5 votes179 views1 answer
Excel vba high word from Long Integer
VBA
0 vote179 views1 answer
Vba apostrophe chr
VBA
2 votes227 views2 answers
Excel vba if sunday or staurday
VBA
0 vote193 views1 answer
Le contrôle SpinButton (Toupie)
VBA
0 vote206 views1 answer
Dynamic array vba
VBA
0 vote190 views1 answer
Vb.net visible property dgv collumn not working
VBA
0 vote198 views1 answer
Vba min
VBA