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

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

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 回答日時： 2013/12/06 00:57

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

dim cn as new adodb.connection

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

この回答へのお礼

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

お礼日時：2013/12/24 21:56