mdb テーブルが一括削除できない (ID:102749)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんばんわ mdb内の特定文字を含むテーブルを削除したいと思っております。 コードは、 Dim objCat, objTable Set objCat = CreateObject("ADOX.Catalog") objCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\AAA.mdb" _ & ";" & "Jet OLEDB:Engine;" For Each objTable In objCat.Tables If objTable.Type = "TABLE" Then If (objTable.Name Like "*インポート エラー*") Then Debug.Print objTable.Name & "削除" objCat.Tables.Delete objTable.Name End If End If Next としたのですが Debug.print のみですと全テーブル名取得できますが 削除を実行すると一部のテーブルしか削除できません。 Doeventを入れてみたのですが同様でした。 どのようにしたら宜しいでしょうか？ ご教授の程宜しくお願い致します。