Open the recordset at beginning of the Loop
Move thru the recordset and do whatever processing is needed
when you reach EOF close the recordset.
Concept:
Code:
Sub leetest()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
'Open the recordset
Set rs = db.OpenRecordset("Select PlusTen(col1) as MyCol from LeeTable")
'set up the process loop
Do While Not rs.EOF
MsgBox rs!MyCol
rs.MoveNext 'advance to next record in recordset
Loop
'end the process loop
'close the recordset
rs.Close
End Sub