Como crear un campo autonumerico a una tabla que ya existe


Dim cadSQL As String

       cadSQL = "ALTER TABLE Tabla " _
       & "ADD COLUMN campo_autonumerico COUNTER"
       CurrentDb.Execute cadSQL