Hallo Leute,
und hier noch eine Version mit der die Verbindung zur MDB klappt, aber nur solange diese nicht mit einem Passwort geschützt ist! Wird die MDB mit Passwort versehen und dieses in die Variable gPsswrt geschrieben fängt der Errorhandler ab und die Verbindung kommt nicht zustande!
Eine andere Version mit gleichem Problem ist weiter unten im Tagesverlauf, Thema: connection string mit Passwort
Weiß jemand weiter?
Gruß Peter
Function Conn_Open2() As Boolean
Dim ConnStr As String
Dim RS As ADODB.Recordset
On Error GoTo Fehler
gAccessPfad = ThisWorkbook.Path & "\db.MDB"
gPsswrt = ""
gUsr = ""
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& gAccessPfad & ";User ID=" & gUsr & ";Password=" & gPsswrt & ""
Set RS_Auswahldaten = New ADODB.Recordset
RS_Auswahldaten.Open "tableAufDieZugegriffenWerdenSoll", ConnStr, adOpenStatic, adLockOptimistic
Conn_Open2 = True
Exit Function
Fehler:
Conn_Open1 = False
MsgBox "Fehler beim Öffenen der Datenbankverbindung: Function Conn_Open2() "
End
Function