Excelからパスワード付きAccess

現在 パスワードが設定されたAccessファイル(accdb形式)のデータをExcelに取り込むプログラムを作成しています．
接続時のプログラムは以下のように記述しました．

Dim cn As New ADODB.Connection
Dim cnStr As String, dbDir As String, Pswd As String

dbDir = "c:\test\test.accdb"
Pswd = "pass"
cnStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & dbDir & ";" & _
"Jet OLEDB:Database Password=" & Pswd & ";"
cn.Open cnStr

上記でexcel2003及び2007からaccdbに接続したところ問題なくデータ取得できました．
excel2010で上記プログラムを実行すると
「パスワードが正しくありません」
と表示され，データが取得できません．

このような場合，どうすれば解決出来るでしょうか?

No.2 ベストアンサー 回答者： nicotinism 回答日時： 2013/02/17 02:23

Access Excel ともに2010で試しました。

パスワード・・のエラー発生。
ググリまくると
http://www.access-programmers.co.uk/forums/showt …
Franz Haidacher さんによれば
Access2010 から採用された既定の暗号化方法（高度なセキュリティ）は
ADO OLEDB では接続できないようです。

Accessのオプションのクライアントの設定から
以前の暗号化方法を使用するに変更したうえでパスワードを設定するしか
現在のところ方法がなさそうです。
(-"-)
DAOなら・・・と試しましたが同じく orz

この回答へのお礼

ご回答ありがとうございます。
ご提示いただいた方法で問題なく接続することができました。
助かりました!!
調べ方が甘かったようです...

お礼日時：2013/02/17 12:02

No.1 回答者： bin-chan 回答日時： 2013/02/16 21:35

あてずっぽですが。

"Jet OLEDB:Database Password=" & Pswd & ";"
パスワードを""か''で囲むとどうなるんでしょう？

"Jet OLEDB:Database Password=""" & Pswd & """;"
か
"Jet OLEDB:Database Password='" & Pswd & "';"

この回答へのお礼

ご回答ありがとうございます。
試してみましたが、同じエラーでした...

お礼日時：2013/02/16 22:29