I have stepped through this code and when it gets to the "If Counter = RecordCount Then" and hits the "Exit Sub" I hit F-8 and it jumps to the "If NewRec = True Then" line and goes on as if the "Exit Sub" wasn't even there??? I even put the statement in twice and it blows right through both of them?

Now, I can put an "Exit Sub" on the third line in this sub and it executes just fine? I have never seen anything like this?

=====================

Do Until Counter = RecordCount
Counter = Counter + 1
Call RegCalc



** If Counter = RecordCount Then 'This stops the loop from last record
Exit Sub
Else

** If Counter = RecordCount Then
Exit Sub
End If

DoCmd.GoToRecord acForm, "A_Frm_Debts", acNext

If NewRec = True Then
DoCmd.GoToRecord acForm, "A_Frm_Debts", acFirst
** Exit Sub
End If
End If
Loop