MS Access visual basic programavimo problema

Sveiki,

Turiu problemėlę dirbant su Access'u

Turiu vat tokį kodą:

Private Sub Form_Current()
DoCmd.OpenForm "Techninė apžiūra Užklausa3"
A = Me.CurrentRecord
B = Me.Recordset.RecordCount
W = DCount("[NR]", "Techninė apžiūra Užklausa")

If Me.TA_statusas = "Baigiasi" Then
MsgBox ("Baigiasi " & Me.Valstybinis_numeris & " techninė apžiūra  " & Me.NR & " i " & W)
End If

If Me.NR < W Then
DoCmd.GoToRecord record:=acNext
End If


End Sub

Kuris patikrina formoje visus įrašus ir meta pranešimą jeigu Baigiasi techninė apžiūra kuriam nors automobiliui.

Problema tame, kad pasiekus paskutinį įrašą gaunu klaidą ir kiek išsiaiškinau ta klaida yra dėl to, kad atidarius paskutinį įrašą kodas vis tiek suveikia ir bando atidaryt vėl sekantį.

If Me.NR < W Then
DoCmd.GoToRecord record:=acNext
End If

Ši kodo dalis turėtu išspresti šia problemą, bet kažkodėl nesuveikia.

Gal kas turit kokiu pasiūlymu ? 

Žiūriu, bandau suprasti, nieko nesuprantu. Tu stipresnis programavime