Do Until rs.EOF - doesn't end ?

Hi:

The following "Do Until" loop never ends.
How can I have it stop at the end of the table, "Tempstorage" ?

Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tempstorage", dbOpenDynaset)

rs.MoveFirst

   Do Until rs.EOF
   ...
   Loop

Thanks,
Phil Miller
pillmillAsked:
Who is Participating?
 
peter57rCommented:
Hi pillmill,
>  Do Until rs.EOF
......

rs.movenext  ...
   Loop


Pete
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.