DBF-Datenbankabfrage per VBA in Excel

Private Sub CommandButton1_Click()
     Range("BF1:BJ65536").Clear  
     With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=dBASE-Dateien;DefaultDir=C:\;DriverId=533;FIL=dBase 5.0;MaxBufferSize=204" _  
           ), Array("8;PageTimeout=5;")), Destination:=Range("BF1"))  
        .CommandText = Array( _
           "SELECT ABPOS.ART_NR, ABPOS.SART_NR, ABPOS.MG_BES, ABPOS.TERMIN, ABPOS.AUSLIEFNR" & Chr(   _  
     13) & "" & Chr(10) & "FROM {oj `F:\STAND94`\ABPOS.DBF ABPOS LEFT OUTER JOIN `F:\STAND94`\ABKOPF. _  
     DBF ABKOPF ON ABPOS.AB_NR = ABKOPF.AB_NR}" & Chr(13) & "" & Chr(10) & "WH" _  
           , "ERE (ABKOPF.DEB_NR Like '1100%') AND (ABPOS.TERMIN Like '" & Format(CDate(Date), "yy")  _  
     & "%') AND (ABPOS.MG_GEL Is Null) AND (ABPOS.AUSLIEFNR Is Not Null)")  
        .Name = "Abfrage von dBASE-Dateien"  
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .PreserveColumnInfo = False
        .Refresh BackgroundQuery:=False
     End With
     Call DieseArbeitsmappe.StarteAuswahlBox 'Hier beginnen die weiteren Auswertungen  
     End Sub