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 vote267 views1 answer
Excel vba disable copy paste
VBA
0 vote233 views1 answer
Vba code to remove leading and trailing spaces
VBA
0 vote309 views1 answer
Excel named range sum
VBA
0 vote278 views1 answer
Open application from vbnet
VBA
1 vote242 views1 answer
Ms access open form to new record
VBA
0 vote317 views1 answer
Style percent not found vba
VBA
0 vote297 views1 answer
Vba get workbook name
VBA
3 votes310 views1 answer
Excel vba get the workbook full filename with path
VBA
5 votes300 views1 answer
Excel formula how to create strings containing double quotes
VBA
0 vote302 views1 answer
Vbnet cycle through charaters in string
VBA