[Resolvido]Zerar numeração automática via VBA de uma única tabela

Estou precisando de ajuda para zerar a numeração automática de apenas uma tabela, pois do banco todo poderia fazer pelo compactar/reparar, será que tem como fazer?
Após a importação dos dados eu deleto todos os dados e necessito que a numeração seja reiniciada para a tabela.

Copie a tabela para uma nova e ao copiar defina só a estrutura. Assim tudo é zerado.

Olá Claudio, entendi sua sugestão mas acho que não daria certo porque se eu copiar a tabela vou perder o nome dela que está amarrado na programação! Será que não existe algum comando para zerar?

Pesquisando na net consequi o código abaixo e ficou 100%

https://support.microsoft.com/pt-br/kb/287756

Após deletar os dados da tbl eu chamo a função com os dados da tbl:

Call ChangeSeed("ICMS10", "Codigo", 1)


que irá executar a função que fica no módulo:

Function ChangeSeed(strTbl As String, strCol As String, lngSeed As Long) As Boolean
   'You must pass the following variables to this function.
   'strTbl = Table containing autonumber field
   'strCol = Name of the autonumber field
   'lngSeed = Long integer value you want to use for next AutoNumber.

   Dim cnn As ADODB.Connection
   Dim cat As New ADOX.Catalog
   Dim col As ADOX.Column
   
   'Set connection and catalog to current database.
   Set cnn = CurrentProject.Connection
   cat.ActiveConnection = cnn
   
   Set col = cat.Tables(strTbl).Columns(strCol)
   
   col.Properties("Seed") = lngSeed
   cat.Tables(strTbl).Columns.Refresh
   If col.Properties("seed") = lngSeed Then
       ChangeSeed = True
   Else
       ChangeSeed = False
   End If
   Set col = Nothing
   Set cat = Nothing
   Set cnn = Nothing

End Function

Bom dia.
Show!
Muito interessante este código, mas, repare que até a Microsoft recomenda o que eu disse na opção 1 deles.
Mas obrigado por compartilhar.
Abraço