Dim TabDef As New TableDef
Dim Fld As New Field
 
TabDef.Name = "myTable(T)"
 
Fld.Name = "AdressNr"
Fld.Type = dbLong
Fld.Attributes = dbAutoIncrField
TabDef.Fields.Append Fld
Set Fld = Nothing
db.TableDefs.Append TabDef
Set TabDef = Nothing

Don't , be