How to bypass a password (Access --> Excel) 1

[Voga]

Hi all.
I created Access database on the network protected with a password. It is in my shared folder. My users log on this database through Excel front end. How and where in the string/path below (dbName) in the code of Excel GUI I can specify the password, so my users could bypass it while loging on and still not having a direct access from my shared folder to that database?

Dim MyDb As Database
Dim dbName As String

'here's a string/path
dbName = "\\MainComp\SharedDocs\UsersDb.mdb" '????????

'Thank you

 

[CCLINT]

Set MyDb = DBEngine.OpenDatabase(dbName , False, False, ";pwd=123456789&quot

 

[Voga]

Thank you CCLINT
This is what I needed.