SoloCodigo

Hola. Prueba con CreateField

suerte...

Este código crear una tabla nueva y le añade tres campos, una de tipo cadena y tamaño 10, otro de tipo integer, otro de tipo double, otro boolean y otro memo. Si necesitas otros tipos de campos busca en la ayuda información sobre el método createField


Dim tabla As TableDef
Dim base As Database


Set base = OpenDatabase("mibase.mdb")
Set tabla = base.CreateTableDef("Ejemplo")
tabla.Fields.Append tabla.CreateField("DNI", dbText, 10)
tabla.Fields.Append tabla.CreateField("Grupo", dbInteger)
tabla.Fields.Append tabla.CreateField("Turno", dbDouble)
tabla.Fields.Append tabla.CreateField("Becado", dbBoolean)
tabla.Fields.Append tabla.CreateField("Comentarios", dbMemo)

base.TableDefs.Append tabla

ESPERO QUE TE SIRVA

Para una Autonumérico no me sé los nombres de las constantes, pero sí los valores:
'Primero lo creas como numérico entero.
tabla.Fields.Append tabla.CreateField("ElAutomatico", 4)

'Luego le indicas que es autonumérico
tabla.Fields("ElAutomatico").Attributes = 17