Имею Access 2002.
Установлена ссылка на Microsoft DAO 3.6 Object Library.
Есть процедура:

Sub test()
    Dim db As Database
    Dim tdf As TableDef
    Dim fld As Field
    
    Set db = CurrentDb
    Set tdf = db.CreateTableDef("TEST")
    
    Set fld = tdf.CreateField("ID", dbLong)
    fld.Attributes = fld.Attributes + dbAutoIncrField
    tdf.Fields.Append fld
    
    db.TableDefs.Append tdf
    db.TableDefs.Refresh
End Sub

Код затыкается на стоке

Set fld = tdf.CreateField("ID", dbLong)

со словами Type Mismatch.

При объявлении
Dim fld As Variant
все работает, а ее тип определяется как Variant/Object/Field.

Пример из хелпа CreateField Method Example обламывается по той же причине .


Просьба помочь разобраться…

С уважением,
Андрей