SQL-String MS-Query

Sub Daten_abfr()
Dim strPath As String
Dim strFile As String
Dim strConnection As String
Dim strSQL As String
Dim strBedingung As String
strPath = "V:\SHARED\PPA-BDE\"
strFile = strPath & "BDE_Daten.accdb"
strConnection = "ODBC;DSN=MS Access Database;DBQ=" & strFile & "; DefaultDir=" & strPath & "; _
DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"
strSQL = "SELECT Personalzeiten.Datum, Personalzeiten.`MA-Code`, Personalzeiten.SEG,  _
Personalzeiten.Materialnummer, Personalzeiten.Kostenplatz, Personalzeiten.Dauer" & _
"FROM Personalzeiten Personalzeiten WHERE (Personalzeiten.Datum BETWEEN CONVERT( _
datetime, '01.01.2016', 104) AND CONVERT(datetime, '31.12.2016', 104)"
With ActiveSheet.QueryTables.Add(Connection:=strConnection, Destination:=ActiveSheet.Range("A1") _
)
.CommandText = strSQL
.Name = "Sheet1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub