programmeret incerement af værdi

jeg har en stump kode jeg ikke kan få liv i..
ideen er simpel nok..jeg kan ikke li´ autonumber og vil derfor kode mig ud af det...type er Langt heltal i den tabel hvor jeg vil indsætte den værdien (ved oprettelse af ny record)

Dim Last_nr As Long
Dim PerID As Long
Dim counter As Long
counter = 0

Last_nr = DoCmd.GoToRecord , , acLast.PerID
If Last_nr = 0 Then
Me.PerID = (counter + 1)
Else
Me.PerID = (Last_nr + 1)
End If

jeg får compile fejl!... hvis jeg sætter "'DoCmd udtryk '" får jeg Type mismatch... hvad misser jeg?

meningen er at den skal tage værdien fra den sidte record og lægge en til værdien og den nye værdi skal sættes i feltet for den nye recored