Campo Automunerico en una tabla

A ver si entiendo bien. La tabla existe, entonces hay que modificar la tabla para agregar un campo autonumérico todo hecho desde código.
Dejame verlo y te contesto.

Con este procedimiento funciona.
Public Sub AgregaCampo()
Dim dbs As Database
' Modifique esta línea para incluir la ruta de acceso a Northwind
' En el equipo.
Set dbs = OpenDatabase("C:\Provisorios\Apuntes\Todo Expertos\NumeroMonedaPais.mdb")
' Agrega el campo Salary a la tabla Employees
' Y lo convierte en tipo de datos Money.
Dbs.Execute "ALTER TABLE ModificaCampos " _
& "ADD NuevoCampo COUNter;"
dbs.Close
End Sub

Hola Gracias por responder tan rapido
Te Aclaro mi pregunta
Necesito crear una tabla con dos campos automericos pero el sistema no deja crear dos campos autonuméricos en una misma tabla.
Preso la necesidad de creer un campo automumerico desde el código de visual a desde alguna función de access