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

1 vote339 views1 answer
Textbox find and replace vb
VBA
5 votes365 views1 answer
Excel vba how to unit test vba code
VBA
0 vote381 views1 answer
Vba run command
VBA
0 vote351 views1 answer
Vba dictionary clear
VBA
0 vote357 views1 answer
Change whcih control a user has selected vb
VBA
0 vote360 views1 answer
Vbscript check if string is empty
VBA
1 vote335 views1 answer
Excel vba hide zero values
VBA
0 vote355 views1 answer
VB get external IP address
VBA
0 vote391 views2 answers
S yyyy-MM-dd em vb net
VBA
0 vote345 views1 answer
Change "location" of binding navigator vb
VBA