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 vote217 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
0 vote234 views1 answer
Filesystemobject vba reference
VBA
0 vote229 views1 answer
Search combobox items vb.net
VBA
0 vote214 views1 answer
Handling a click event anywhere inside a panel vb
VBA
0 vote216 views1 answer
Vba static variable
VBA
0 vote173 views1 answer
Excel vba arrondir
VBA
0 vote229 views1 answer
Vba collection contains
VBA
1 vote225 views1 answer
Excel vba get column number from column name
VBA
4 votes225 views2 answers
Excel vba last column with data
VBA
1 vote232 views1 answer
How to remove zeros in excel
VBA