Access - Clave Primaria Autonumerica mediante codigo

Buenos Dias antetodo . quiero que la clave primaria se me rellene automaticamente , como un autonumerico , pero sin serlo ya q mi clave es tipo texto. de esta mascara 0001, 0002 , 0003

Esto es lo q e puesto Val(Dlast(, ID Código],"Vehiculos") + 1)

val para q me transforme el campo id codigo q es texto en numero , dlast
para q me seecione el ultimo registro y +1 para q me sume 1 al ultimo
registro . eso q me lo guarde en una variable por ej y me rellene el campo codigo , pero ME DA FALLO !!, me devuelve valor NULL

alguna idea para que me funcione?

Gracias.

hola, veamos yo lo solucione de la siguiente manera, tengo una tabla llamada contador, donde el campo1 "cntr1" en la posicion 1 lleva el numero de registro. lo que hago es que leo ese campo le sumo 1 y luego actualizo ese campo y el campo de la tabla donde quiero que figure como autonumerico o contador de esa tabla.

Dim rst As Recordset
Dim rst1 As Recordset
Dim reg As String
Set rst = CurrentDb.OpenRecordset("contador")
Set rst1 = CurrentDb.OpenRecordset("re01")
rst.MoveFirst
rst.Edit
rst1.Edit
rst!cntr1 = rst!cntr1 + 1
re01_00 = rst!cntr1
rst1.Update
rst.Update
rst.MoveFirst
reg = " Número de Registro (" + Str(rst!cntr1) + "), Desea Imprimir"
rst.Close
MsgBox reg, vbInformation, "Registro de Entrada"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close
Exit_Comando25_Click: