Dim OpenDataBaseFile As Database Set OpenDataBaseFile = OpenDatabase( "FileName ") OpenDataBaseFile.Execute ( "DELETE TABLE "表名 ") '删除 OpenDataBaseFile.TableDefs(“表名”).Name = “新表名” '重命名 你用此方法试试