'删除整个表
Sub DropX2()
Dim dbs As Database
'在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")
' 删除员工表。
dbs.Execute "DROP TABLE Employees;"
dbs.Close
End Sub
