hab ne Frage! Folgender Code funktioniert ohne die Angabe des Passwortes wie es unten drin steht, mit aber nicht!
Kann mir jemand weiter helfen?
Peter
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