利用 DeleteObject 方法即可
例如：删除 表1 代码如下：
DoCmd.DeleteObject acTable, "表1"
删除其它对象，同理，只需更改第一个参数。相关参数可按 F1 键获得帮助。
另说一个好办法，那就是利用宏转换成代码来学习此方法的使用。
你可以新建一个宏，用 DeleteObject 操作来分别删除数据库的各种对象，然后，你把建立的宏转换成代码，看一下就学会了。
Private Sub Cmd_ALLTbl_Click()
If MsgBox("您确认要删除所有的<表>对象吗?请慎重,一旦删除即无法恢复", vbOKCancel + vbDefaultButton2 + vbExclamation, "提示!!!!") = vbOK Then
'删除所有表代码如下
Dim rst As Object
'对象类型1代表是表
Set rst = CurrentProject.Connection.Execute("Select Name FROM MsysObjects Where flags=0 AND (MSysObjects.Type)=1 orDER BY MSysObjects.Name")
Do While Not rst.EOF
DoCmd.DeleteObject acTable, rst("Name")
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
MsgBox "所有表已删除完成!", vbInformation, "提示:"
End If
End Sub
Dim rst As Object
Set rst = CurrentProject.Connection.Execute("Select Name FROM MsysObjects Where flags=0 AND (MSysObjects.Type)=5 orDER BY MSysObjects.Name")
Do While Not rst.EOF
DoCmd.DeleteObject acQuery, rst("Name")
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
MsgBox "所有查询删除已完成!"
