With
ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array(SQL_ODBC), Array(SQLEinstellungen)), Destination:=Range(
"$A$1"
)).QueryTable
.CommandText = Array(SQL_SELECT0, SQL_SELECT1, SQL_SELECT2, SQL_SELECT3, SQL_SELECT4, SQL_SELECT5, SQL_SELECT_ENDE, SQL_FROM & vbNewLine, SQL_WHERE & vbNewLine, SQL_ORDER_BY)
.RowNumbers =
False
.FillAdjacentFormulas =
False
.PreserveFormatting =
True
.RefreshOnFileOpen =
False
.BackgroundQuery =
True
.RefreshStyle = xlInsertDeleteCells
.SavePassword =
False
.SaveData =
True
.AdjustColumnWidth =
True
.RefreshPeriod = 0
.PreserveColumnInfo =
True
.ListObject.DisplayName =
"Tabelle_Abfrage_von_MS_Access_Database"
.Refresh BackgroundQuery:=
False
End
With