Hi All,

How to open Ms Access database (DAO) with password protected using
OPENDATABASE method?
Set dbs = DAO.DBEngine.Workspaces(0).OpenDatabase("c:\ABC.MD B")
Where I have to put the password?
TIA

Yanto

You'll find more support in these ng if you use ADO. FWIW, here's some
DAO code to open a .mdb Jet database file using workgroup security:

Sub test()
Dim wks As DAO.Workspace
Dim db As DAO.Database

With DAO.DBEngine
.DefaultUser = "sa"
.DefaultPassword = "password"
.SystemDB = "C:\MSOffice\Access\system.mdw"
Set wks = .CreateWorkspace("Working", "sa", "password")
End With

Set db = wks.OpenDatabase("c:\MyDB.mdb", True, False)

' code continues ...

End Sub

--

"Yanto" wrote in message ...
Hi All,

How to open Ms Access database (DAO) with password protected using
OPENDATABASE method?
Set dbs = DAO.DBEngine.Workspaces(0).OpenDatabase("c:\ABC.MD B")
Where I have to put the password?
TIA

Yanto