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 vote329 views1 answer
Vbnet check if number is even or odd
VBA
0 vote332 views1 answer
Vba like with wildcard
VBA
0 vote343 views4 answers
How to continue formula in below line in vba code
VBA
2 votes318 views1 answer
Vba uppercase first letter of each word
VBA
8 votes489 views1 answer
Vba convert 2 bytes to an integer
VBA
0 vote328 views1 answer
Vba verticalalignment
VBA
8 votes501 views1 answer
Excel vba make word from bytes
VBA
0 vote369 views1 answer
Vba is integer
VBA
0 vote322 views1 answer
Vb window.minimize
VBA
-1 vote364 views1 answer
How save excel through visual basic
VBA