Удаление поля

    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