Private Sub CommandButton4_Click()
    Dim Text As String
    Text = "Regler113.csv"
 
    Range("A2:Q100").Select
    Range("A2:Q100").Activate
    Range("A2:Q100").Delete
 
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DefaultDir=D:\EIGENEDATEIEN\TECHNIKER\TECHNIKERARBEIT;Driver={Dr" & _
        "ver da Microsoft para arquivos texto (*.txt; *.csv)};DriverId=" _
        ), Array( _
        "27;FIL=text;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransa" & _
        "tions=0;Threads=3;UserCommitSync=Yes;" _
        )), Destination:=Range("A2"))
        '.CommandText = Text
        '.CommandText = Array("SELECT * FROM Text")
        .CommandText = Array("SELECT * FROM `Regler111.csv`")
        .Name = "CSV-Datei"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceConnectionFile = _
        "C:\Programme\Gemeinsame Dateien\ODBC\Data Sources\CSV-Datei.dsn"
 ->    .Refresh BackgroundQuery:=False
    End With
 
End Sub