connection string mit Passwort

Function Conn_Open1() As Boolean
Dim conDB As ADODB.Connection
On Error GoTo Fehler
Conn_Open1 = True
gAccessPfad = ThisWorkbook.Path & "\db.MDB"
Set conDB = New ADODB.Connection
conDB.Provider = "Microsoft.Jet.OLEDB.4.0"
conDB.Mode = adModeReadWrite
conDB.Open ConnectionString:=gAccessPfad, Password:="haumichtot"
Set gConDb = conDB                   ' global setzen
Conn_Open1 = True
Exit Function
Fehler:
Conn_Open1 = False
MsgBox "Fehler beim Öffenen der Datenbankverbindung: 

Function Conn_Open1() "
End Function