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.Workspaces(0).OpenDatabase("C:\Test\PWDDa ten.mdb", False,
False, ";PWD=secure")

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

End Function

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

On Error GoTo FehlerMeldung

Const TMP = "C:\Test\PWDDaten.mdb"

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

Set oAcc = New Access.Application
Set db = oAcc.DBEngine.OpenDatabase(TMP, False, False, ";pwd=secure")
oAcc.OpenCurrentDatabase TMP
db.Close
Set db = Nothing

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

End Function

Thanks in advance
Stefan