実行時エラー -2147217900 ADODBでレコードセットオープン時エラー

お世話になります！
AccessVBAで実行時エラーが出ます。

SQLステートメントが正しくありません。　DELETE INSERT PROCEDURE SELECT または UPDATEを使用してください。

と表示されます。

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset 'URLマスタ
'接続
Set cn = Application.CurrentProject.Connection
Set rs = New ADODB.Recordset

'レコードセットを取得

rs.Open "URLマスタ", cn　・・・・・・・・・・・・・ここでエラー

つい先日までエラーが出ませんでした。
久しぶりにすると、私のPCではエラーが出ます。
他のPCでは出ません。

Windows7
Access2016　Office solo
を使用しています。
よろしくお願い申し上げます。

No.3 ベストアンサー 回答者： bonaron 回答日時： 2016/11/11 16:56

No.1 です。

> rs.Open "URLマスタ", cn , adCmdTable
> こうでしょうか？

これでは ３番目の引数ですね。 (^^;)

rs.Open "URLマスタ", cn , , , adCmdTable

これは
rs.Open "URLマスタ", cn ,adOpenForwardOnly ,adLockReadOnly , adCmdTable
と同等です。

良く使うメソッドでも、一応ヘルプで確認することをお勧めします。
https://msdn.microsoft.com/ja-jp/library/cc36421 …

No.2 回答者： y504 回答日時： 2016/11/11 16:40

今まで動いていた。

プログラムを何も変更していないのにエラーがでる。
自分なら参照設定を疑います。

・参照不可になっているものはないか？
・参照の順番が変わったものはないか？
・何も変わっていなければ参照設定のチェックを一旦はずし保存
改めてチェックをしてみる

http://www.accessclub.jp/actips/tips_32.htm

No.1 回答者： bonaron 回答日時： 2016/11/11 15:59

5番目の引数に adCmdTable を指定してみたらいかがでしょうか？

この回答へのお礼

ありがとうございます。
rs.Open "URLマスタ", cn , adCmdTable
こうでしょうか？

これでやってみたところ、やはり同じエラーがでます。

お礼日時：2016/11/11 16:14