How to Open MSAccess data with Password protected

[samccw]

Hi there!

Need help on VB5. I tried number of times to Open MSAccess data(I protect with a password on it), when I run my program in VB5 & it prompt me "Run-time error 3031, Not a valid password, therefore I can't open it. Anyone can help me, how to decode MSAccess password in VB5 statement. Thanks

Rgds,
Sam

[MartinLiss]

This is DAO

DBEngine.SystemDB = C:\MyPath\My.MDA"
DBEngine.DefaultUser = "MyUserName"
DBEngine.DefaultPassword = "MyPassword"


------------------
Marty

[samccw]

Thanks Marty, will try it out...

Rgds,
Sam

[samccw]

Hi Marty,

It still prompt me "Run-time error 3031, Not a valid password"

I protected MSAccess file with password(Not the Admin/User password).

Rgds,
Sam

[samccw]

Here's my Email [email protected]

[Gerald]

Accessing a password protected MSAccess database:

Using DAO...

Dim db As DAO.Database
    
Set db = DBEngine(0).OpenDatabase("C:\YourDatabase.mdb", True, False, ";pwd=YourPassword")

Using ADO...

Dim cn as ADODB.Connection

Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.3.51"
cn.ConnectionString = "Data Source=C:\YourDatabase.mdb;Jet OLEDB :database password=YourPassword"
cn.CursorLocation = adUseClient
cn.Open

[This message has been edited by Gerald (edited 12-07-1999).]

[samccw]

Thanks Gerald...