Opening a VB Application with a Access Database Password.

[1x2z3]

I used a MS Access database with a Database Password in Access to protect the database.

What coding can I use to bypass the Access Database Password when I open the database through a VB Application. It gives me the following error code :

Run-time error ‘-2147217843 (80040e4d
Not a valid password.

I used the following code to connect to my database :

Dim cn As ADODB.Connection 'Connect to a Database.
Public rs As ADODB.Recordset 'Set records.

Public Sub OpenConnection()

'Database to be opened.
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\VB\Profiller\Profiller.mdb"
cn.Open

End Sub

 

[BiggerBrother]

Your connection string needs to look more like this:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "Db.mdb;Persist Security Info=False;Jet OLEDBatabase Password=password"

BB

 

[1x2z3]

Thank`s BB : I used following two connection types. My Access Database Password is cats but it still says invaled password. I even tried to just say Database Password = password.

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\VB\Profiller\Profiller.mdb;Jet OLEDBatabase Password=cats"

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= c:\VB\Profiller\Profiller.mdb;Persist Security Info=False;Jet OLEDBatabase Password=cats

 

[johnwm]

To get the syntax exactly right, just temporarily put an ADODC control on your form. Then right-click on the control and use the wizard to generate your connection string. You can test the connection within the wizard. When you're done, copy the connection string from the ADODC and use it as normal. You can then delete the ADODC.

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'