ADODB ConnectionString
12.04.2022 08:42:18
Alex
Ich brauche mal wieder eure Hilfe!
Sub checkConnection()
Dim con As ADODB.Connection
Set con = New ADODB.Connection
On Error GoTo ErrConStr
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\alexf\OneDrive - Tschanz Kältetechnik\ " & _
"Tschanz-Kältetechnik (business)\Tschanz.accdb;Integrated Security=False"
con.Open
con.Close
Set con = Nothing
Exit Sub
ErrConStr:
Debug.Print Err.Source
Set con = Nothing
End Sub
Microsoft OLE DB Service Components
Der Verweis ist auf MS ActiveX Data Object 6.1 gesetzt.
Wo ist der Fehler im ConnectionString?
Gruss Alex
Anzeige