如何用VBA批量drop表

Public Sub del_tbl()
    On Error Resume Next
    Dim tbl As TableDef
    Dim dbs As Database

    Dim obl As String

    Set dbs = CurrentDb

    For Each tbl In dbs.TableDefs
        If tbl.Name Like "*导入错误" Then
            If MsgBox("你确认要删除[" & tbl.Name & "]表吗？" & vbNewLine & "删除后不可恢复！", vbYesNo + vbExclamation, "提示!!!!") = vbYes Then
                DoCmd.DeleteObject acTable, tbl.Name
                MsgBox "[" & tbl.Name & "]已删除", vbInformation, "提示:"
            End If
        End If
    Next
End Sub