如何在访问中删除导入错误表？

Question

我不是VBA专家。我想要做的是导入多个csv文件进入访问。在导入文件后，访问权限正在创建一堆导入错误表。我运行宏来导入csv文件后，我使用下面的代码删除错误表，但它不起作用。它告诉我用户定义的类型没有定义。任何帮助表示赞赏。如果您可以帮我修复该代码或找到不同的代码，我真的很感激

Sub dropImportError()

Dim tbl_name As DAO.TableDef, str As String
With CurrentDb
    For Each tbl_name In .TableDefs
        str = tbl_name.Name
        If InStr(str, "ImportErrors") <> 0 Then
            str = "DROP TABLE" & str & ""
            DoCmd.RunSQL str
        End If
    Next
End With

End Sub