Удаление поля Dim tbl As dao.TableDef Set tbl = DBEngine(0)(0).TableDefs("table1") tbl.Fields.Delete "date2" или
strSql = "ALTER TABLE [Table] DROP COLUMN [Field];" DBEngine(0)(0).Execute strSql, dbFailOnError