crear campo autonumerico a una tabla

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