Private Sub CommandButton1_Click()
Dim vnt As Variant
Dim vntE As Variant
Dim i As Long
Dim pfad As Variant
vnt = ActiveWorkbook.Connections("Test").OLEDBConnection.Connection
pfad = Sheets("Einstellungen").TextBox_pfad.Value
vnt = Split(vnt, ";")
For i = 0 To UBound(vnt)
vntE = Split(vnt(i), "=")
If 0 = StrComp(Trim$(vntE(0)), "Data Source", vbTextCompare) Then
vntE(1) = pfad
vnt(i) = Join(vntE, "=")
Exit For
End If
Next
vnt = Join(vnt, ";")
Sheets("Tabelle1").Select
With ActiveWorkbook.Connections("Test").OLEDBConnection
.SourceConnectionFile = pfad
.Connection = vnt
End With
ActiveWorkbook.Connections("test").Refresh
End Sub