Access - ¿Que hago mal en este código?

Tengo un problema con un boton de comando que he puesto en un formulario. Tengo 2 tablas una Tabla1 y la otra TAlbaranes con una relacion una a varios. Dentro de la TAlbaranes hay un campo llamado ContadorAlbaranes que mediante código va a buscar el último registro del campo ContadorAlbaranes y le va a sumar 1, pero esta suma quiero que la haga mediante un boton de comando (CerrarAlbaran) que al hacer click ejecute el código pero no me va, ¿dónde fallo? Os pongo el código para ver si alguien me puede ayudar ya que estoy atascado

Private Sub CerrarAlbaran_Click()
Dim NumReg
NumReg = DMax("ContadorAlbaranes", "TAlbaranes")
If IsNull(NumReg) Then
NumReg = 1
Else
NumReg = NumReg + 1
End If
Contador = NumReg

End

Hice tu ejercicio con una tabla mía y si funciona bien tu codigo, si mi tabla no tiene ningun registro el resultado es 1 y le meti dos registros y el resultado es 3, solo se me ocurre que tu campo ContadorAlbaranes no sea numerico, checalo.
este el codigo qie yo use, solo cambie la segunda linea.

Dim NumReg
NumReg = DMax("No_Conse", "Universo")
If IsNull(NumReg) Then
NumReg = 1
Else
NumReg = NumReg + 1
End If
Debug.Print NumReg