Reiniciar campo autonumerico Access

Option Compare Database
Public strNombreTabla As String
Public strNombreCampo As String
Public ValorInicial As Integer


Function ReiniciarAutonumerico(strNombreTabla, strNombreCampo, ValorInicial)
Dim cat As Object
Dim t As Object
Dim col As Object
Dim p As Object


Set cat = CreateObject("ADOX.Catalog")
Set cat.ActiveConnection = CurrentProject.Connection

Set t = cat.Tables(strNombreTabla)
Set col = t.Columns(strNombreCampo)
Set p = col.Properties("Seed")

If IsMissing(ValorInicial) Then
p.Value = Nz(DMax(strNombreCampo, strNombreTabla), 1)
Else
p.Value = ValorInicial
End If

Set p = Nothing
Set col = Nothing
Set t = Nothing
Set cat = Nothing


End Function

Código del botón que llama función:

Private Sub Comando0_Click()
Dim strNombreTabla As String
Dim strNombreCampo As String
strNombreTabla = Me.strNombreTabla
strNombreCampo = Me.strNombreCampo

retorno = Módulo1.ReiniciarAutonumerico(strNombreTabla, strNombreCampo, 1)

End Sub