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 vote265 views1 answer
Excel vba hide columns
VBA
0 vote304 views1 answer
Regex numeric digits
VBA
0 vote290 views1 answer
Ribbon show/hide
VBA
0 vote243 views1 answer
How to make a if statement with vbs
VBA
3 votes277 views1 answer
Vba make long from two shorts
VBA
0 vote299 views1 answer
Vba sort the data Z to A
VBA
0 vote310 views1 answer
Vba ternary
VBA
0 vote335 views1 answer
Winforms dark title bar
VBA
4 votes293 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
0 vote303 views1 answer
Vba string
VBA