Ado Connection w/passworded Acces db

Can anyone help?

I can connect to my access 2k database without a password set in the databaase using an ado connection. If i try to connect with a password set I get an error. In the connection string i do not specify a user but i do specify a password "Password = pwd".

Can some one tell me what i am doing wrong or point me in the right direction.

Thanks,

Jason

Code:

---

'Try the following code:
Private Sub Command1_Click()
  Dim Conn As New ADODB.Connection
  Conn.Open "Provider=MSDASQL;" & "Driver={Microsoft Access Driver (*.mdb)};" & _
      "Dbq=c:\new.mdb;" & "Uid=;" & "Pwd=pwd"
  Debug.Print Conn.State
  Conn.Close
  Set Conn = Nothing
End Sub

---

This works for me:

Connection = Provider=Microsoft.Jet.OLEDB.4.0;Data Source = \\bifdomain1_pdc\it\jpart\KNOWLEDGE BASE.MDB;Jet OLEDB:System Database=\\bifdomain1_pdc\it\jpart\knowledge Base.MDW;User ID = USRUSR;Password=PWDPWDPWD;

Set adoConnection = New ADODB.connection
With adoConnection
.ConnectionString = connection
.Open
End With

USRUSR is the user id, and PWDPWDPWD is the password they have supplied.

If the database is just password protected, the following should work:

Connection = Provider=Microsoft.Jet.OLEDB.4.0;Data Source = \\bifdomain1_pdc\it\jpart\KNOWLEDGE BASE.MDB;Jet OLEDB:Database Password=PWDPWDPWD;

Set adoConnection = New ADODB.connection
With adoConnection
.ConnectionString = connection
.Open
End With

PWDPWDPWD is the database password.

Hi..
I have the same problem of theghost... I've created a database in Access97 (OS Windows 98) and I didn't use password. Then I tried an ADODB connection with VB6, and it work. But when I created a password for my database, I can't connect anymore...
I was looking for this Forum and I've found this answer but, I tried all the solutions and no one solve my problem... Do you have any other suggestion or can indicate me what can I be doing wrong?
Thanks your help!
Cristiane

Hi
I am having the same problems as stated in Cristiane's post.

Any suggestions.

Thanks,
SB

I was also having the same problem... and I finally found my answer... I'm sure this in some other posts...I just didn't recognize the format. Here is what I did.

Code:

---

set myConn = New ADODB.connection
with myConn
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Properties("Jet OLEDB:Database Password") = "myPassword"
  .Open "\myFilePath\myFile.mdb"
end with

---

this worked...

I was trying to pass the password in the open statement...but it was giving me a error....

hope this helps someone.

kenny

You can do the same thing using a connection string. One of the easiest ways of setting up a connection string, is to create a UDL file to your database, filling in all the parameters. You can then open this file using notepad, and copy its contents into your connection string.