How to Open MSAccess data with Password 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).]