ＶＢ６＋Ａｃｃｅｓｓ２００２の環境で
ＡＤＯでパス付きＭＤＢ接続に失敗してしまいます

以下の方法は試しました

１）
Set Pr_cn = New ADODB.Connection
Pr_cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=c:\a.mdb;" & _
           "Uid=Admin;" & _
           "Pwd=passwd;"

２）
Set Pr_cn = New ADODB.Connection
Pr_cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=c:\a.mdb;" & _
           "User Id=Admin;" & _
           "Password=passwd;"

３）
Set Pr_cn = New ADODB.Connection
Pr_cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=c:\a.mdb;" , "Admin" , "passwd"


何か方法が間違っているのでしょうか？

mdb全体への「データベースパスワード」を指定したいなら、
接続文字列に『Jet OLEDB:Database Password=YourPassword』を追加してください。


なお、提示されたコードの 2) と 3)は、ほぼ同じ意味になりますが、
これらの指定は、mdbの「ユーザー別パスワード」を意味します。
この場合は、接続文字列に『Jet OLEDB:System database=C:\workgroup.mdw』が必要です。

速い回答恐れ入ります

> 接続文字列に『Jet OLEDB:Database Password=YourPassword』を追加してください。

これで、解決できました
ありがとうございました