how to protect access database file using password

I use the following connection string and i need to protect my access file using password :

Public Function initdb()
On Error GoTo error
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "Database.mdb")
Set rs = db.OpenRecordset("MasterFile", dbOpenTable)
rs.Index = "First"
max = rs.RecordCount
Exit Function

Can please somebody tells me how do I open the .mdb file if the database file i.e database.mdb is protected using a password.

Any suggestion or help will be highly appreciated.



Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!