Problem sa access 2010 u 2003 taj kod radi

Ovaj kod mi radi u 2003 ali u 2010 nece
Redom mi upisuje redne borjeve u slogove

Function Numerisi()
On Error GoTo Err_Numerisi
Dim cury As Long

DoCmd.GoToRecord , , acFirst
'' DoCmd.RunCommand (acCmdRecordsGoToFirst)
dalje:
'MsgBox (RbrI & " : " & RBr)

If RbrI = 0 And RBr = 0 Then
cury = DMax("[rbri]", "KPR")
RbrI = cury + 1
End If
DoCmd.GoToRecord , , acNext
''DoCmd.RunCommand (acCmdRecordsGoToNext)
GoTo dalje

Exit_Numerisi:
Exit Function
Err_Numerisi:
MsgBox Err.Description
Resume Exit_Numerisi
End Function

A msgBox error je 'You cant go to the specified record'

Potpis

Angelina Jolie