エクセルからアクセスのアクションクエリ エラー

質問

今までできてたコードが急にできなくなりました。
エクセルからアクセスのアクションクエリを実行するｖｂａコードなのですが

Sub 削除クエリを実行する ()
Dim cmd As New ADODB.Command
Dim MySQL As String

cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & "D:\(test).accdb"

MySQL = "DELETE Tローカル.* FROM Tローカル;"

cmd.ActiveConnection = cn
cmd.CommandText = MySQL
cmd.Execute MySQL

cn.Close: Set cn = Nothing
End Sub

を、今までやっていたのに、
昨日からできなくなりました。

cn.Open "Provider
の部分で、

実行時エラー、-2147467259（80004005）
エラーを特定できません。

となります。

環境は、ｗｉｎ７、オフィス２０１０です。

回答No.1

nicotinism · ベストアンサー

投稿時に端折っているのかもしれませんが、cn の宣言が抜けているような。
dim cn as new adodb.connection

ファイル名に()を使われているのも少し怪しいかも。

お礼

ご回答ありがとうございました。