DBパスワードありVBAアクセスについて

質問

Access2010を使用しております。
Excel2010からAccessにVBAからSelect文でデータセット取得しようとしております。
接続には以下の記述で接続しようとしてますが、オートメーションエラーになります。

Set con = New ADODB.Connection

con.Provider = "Microsoft.Ace.OLEDB.12.0"
con.Properties("Jet OLEDB:Database Password") = Password
con.Open "C:\\Directory"

または

con.Provider = "Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Directory;Jet OLEDB:Database Password=Password"

con.Open

などいろいろ試してますがうまくいきません。
パスワードがなければ以下の記述で開けるのですが。

con.Provider = "Microsoft.Ace.OLEDB.12.0"

con.Open "c:\\Directory"

アドバイス等お願いします。

回答No.3

nda23

どのようなメッセージが出ていますか？
Driver=の記述でダメだった経験が
ありません。単純なミスのような気が
します。

回答No.2

nda23

じゃあこうしましょ。

Dim 接続文字列 As String
Dim パスワード As String
Dim DB接続 As ADODB.Connection

接続文字列 = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\～"
パスワード = "uuuu"
Set DB接続 = New ADODB.Connection
DB接続.Open 接続文字列, , パスワード

"Provider="の方は指定のバージョンを使う
"Driver="は最新バージョンを使う
よって、上はバージョンが変わる度に修正が
必要だが、下はそれが要らない。但し、
複数のバージョンがインストールされている
マシンで、下位バージョンで接続する時は
Provider=でないとダメです。

お礼

うーん出来ませんでした。
なんか記述ミスと言うよりか、Accessの設定でしょうか。
Accessのパスワード外し、パスワード部分の記述を外せば問題ないのですが・・・

外部アクセスの許可設定などあるのでしょうか。

回答No.1

nda23

Openメソッドの第2パラメータがユーザID、
第3パラメータがパスワードです。
con.Open "C:\～", "uuuu", "pppp"
としてみてください。

お礼

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

データベースパスワードのユーザー名はデフォルトではなにになるのでしょうか。
どこかで確認できるのでしょうか。
ユーザー名を空白、省略、Adminなどで試しましたが、うまくいきませんでした。