По-моему средствами Access.SQL AutoNumber не сделать, но можно так:
Dim td As DAO.TableDef, fd As DAO.Field, pr As DAO.Property
Dim db As DAO.Database: Set db = OpenDatabase(pth & nmDb)

Set td = db.CreateTableDef("Test")
Set fd = td.CreateField("F1", dbLong): fd.Attributes = dbAutoIncrField 'Long only!
td.Fields.Append fd: td.Fields.Refresh
Set fd = td.CreateField("F2", dbDate): fd.Attributes = 1
td.Fields.Append fd: td.Fields.Refresh

Set fd = td.CreateField("F3", dbLong): fd.Attributes = 1
td.Fields.Append fd: td.Fields.Refresh
Set pr = fd.CreateProperty("DecimalPlaces", dbByte, "2")
fd.Properties.Append pr
fd.Properties.Refresh
fd.Properties("DecimalPlaces") = "2"

db.TableDefs.Append td

db.TableDefs.Refresh

Да, но только Начиная с Аксесса 2000!!!