两段代码均可快速删除整个数据表

方法一：通过Access内置的方法，用DeleteObject 删除表 DoCmd.DeleteObject acTable, "表名称" 方法二：使用sql语句Drop删除表 Docmd.Runsql "drop table 表名称"