i want to loop through records and assign numbers for each.  records are in
order and every group of records has one with a number 1 in "varnum".  i want
to fill in a a field, "aftervar", with the 1 and then with 2,3,4,5 and so on
until it reaches next 1, stopping when it hits "DONE". it keeps saying "Loop
without Do"?  i assume you can you do "if then" within loops? may not be
doing this correctly!! thanks in advance!

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb

Dim tempnum As Variant
tempnum = 1

Set rs = db.OpenRecordset("newtable", dbOpenDynaset)
With rs
.MoveFirst
Do Until rs.EOF
.Edit
If rs!varnum = 1 Then
rs!aftervar = 1
Else
If rs!varnum Is Null Then
rs!aftervar = tempnum + 1
End If
.Update
tempnum = rs!aftervar
.MoveNext
If rs!varnum = "DONE" Then
Exit Do
End If
Loop
End With
End Sub