Database password as parameter

[Stefan Fiedrich]

Hallo all,

I have two dbs and I would like to open one db from another by calling a VBA
function. The db I'll try to invoke has a password.
What is my mistake ??

Option 1:

Function Open1()
Dim db As Database

On Error GoTo FehlerMeldung

erg = DBEngine.Worksp aces(0).OpenDat abase("C:\Test\ PWDDaten.mdb", False,
False, ";PWD=secur e")

FehlerMeldung:
MsgBox "Anmeldung fehlgeschlagen ", 16, "FEHLER !"

End Function

Option 2:
Function Open2()
Dim db As Database
Dim oAcc As Access.Applicat ion

On Error GoTo FehlerMeldung

Const TMP = "C:\Test\PWDDat en.mdb"

Set db = DBEngine.Create Database(TMP, dbLangGeneral)
db.NewPassword "", "secure"
db.Close
Set db = Nothing

Set oAcc = New Access.Applicat ion
Set db = oAcc.DBEngine.O penDatabase(TMP , False, False, ";pwd=secur e")
oAcc.OpenCurren tDatabase TMP
db.Close
Set db = Nothing

FehlerMeldung:
MsgBox "Anmeldung fehlgeschlagen ", 16, "FEHLER !"

End Function

Thanks in advance
Stefan