Profi-Frage an alle Experten

Meine Access Datenbank hat ein Benutzerkennwort, und in folgendem Code bekomme ich immer runtime errors.

Set cnDB = New ADODB.Connection
With cnDB
.Provider = "Microsoft.Jet.OLEDB.4.0"
'Pfad zur Datenbank
.ConnectionString = "J:\db1.mdb"
.Open
End With

Was muss ich nun noch einbauen, damit das Kennwort erkannt wird.

Wie kann ich es erreichen, damit niemand meinen VBA Code verändern kann, gibt es so ein Feature? Oder irgendwie Sperren oder Verstecken?

Gruß
Peter