ник: Анатолий (Киев)
А у меня все получается (А2000), только вместо OpenDatabase(sBase) использовал CurrentDB.
tdf.Fields("MyText").DefaultValue = "Proba"
tdf.Fields("MyNum").DefaultValue = 0
ALTER COLUMN тоже работает, но не с CurrentDB, а так:
CurrentProject.Connection.Execute "ALTER TABLE Proba ALTER COLUMN MyNum LONG DEFAULT 0"