I get this problem all the time....
Do Until rs.EOF
Forms!frmMigration!lblProgress.Caption = "Record " & _
rs.AbsolutePosition & " of " & rs.Recordcount
Forms!frmMigration.Repaint
rs.MoveNext
Loop
I see the counter running fine and then it freezes at about 3000. I have to ctl-break out and...