ADO 「認証に失敗しました」

ADOでデータベースに接続したいのですが
”実行時エラー　-2147217843(80040e4d)　認証に失敗しました。”

になります。

コードは

Sub ado()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source" & CurrentProject.FullName　★

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

です。

★ 印の所でエラーになります。
宜しくお願いいたします。

No.1 ベストアンサー 回答者： ShowMeHow 回答日時： 2012/10/26 17:15

access 出自分自身に接続しようとしているのかな？

パスワード入れてないなら、
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & CurrentProject.FullName & ";Persist Security Info=False;"
としてみるとか、、、
http://www.connectionstrings.com/access-2007
パスワード入れてるなら、
Jet OLEDB:Database Password=MyDbPassword;
もくわえてみるとか、、、

この回答へのお礼

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

お礼日時：2012/11/06 20:42