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

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

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


Сам спросил, сам ответил

Перемену необходимо описывать как

Dim fld As DAO.Field

В противном случае она воспринимается как ADODB.Field