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 vote154 views1 answer
Get current year vb
VBA
0 vote145 views1 answer
Vbnet add new ecel sheet
VBA
0 vote184 views1 answer
Search for text in every worksheet excel visual basic
VBA
0 vote161 views1 answer
Vba boolean to string
VBA
0 vote171 views1 answer
Excel vba set cell value to empty
VBA
1 vote161 views1 answer
Excel vba first and last row and column in range
VBA
1 vote152 views1 answer
Textbox find and replace vb
VBA
0 vote151 views1 answer
Open application from vbnet
VBA
0 vote155 views1 answer
Vba get relative cell address
VBA
0 vote180 views1 answer
Excel vba protect shapes
VBA