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 vote224 views1 answer
Application.ExecutablePath VB.NET
VBA
0 vote155 views1 answer
Arq linux
VBA
0 vote141 views1 answer
Excel vba center userform
VBA
8 votes227 views1 answer
Excel vba determine number of elements in a 2D array
VBA
5 votes175 views1 answer
Excel vba get user selected range
VBA
0 vote157 views1 answer
Vbs run with cscript
VBA
0 vote139 views1 answer
Vb.net round to 2 decimal places
VBA
1 vote149 views1 answer
Excel vba first and last row and column in range
VBA
0 vote141 views1 answer
Get current year vb
VBA
0 vote147 views1 answer
Internet explorer reference vba
VBA