try
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
If Left((obj.Name), 4) <> "MSys" And Left((obj.Name), 1) <> "~" Then
If obj.Name = "月汇总表" Then
DoCmd.DeleteObject acTable, obj.Name
End If
End If
Next obj