allg ODBC Fehler nach bei autom. SQL Abfrage

Sub q_andon(last_data)
Worksheets("Daten").Activate
Cells.Select
Selection.ClearContents
schichtnr = Worksheets("Bericht").Cells(4, 3)
datum = Worksheets("Bericht").Cells(3, 3)
d = Day(datum)
If d < 10 Then
d = "0" & d
End If
m = Month(datum)
If m < 10 Then
m = "0" & m
End If
y = Year(datum)
datum = d & "/" & m & "/" & y
conn_string = "ODBC;DSN=xxx_DB;;UID=xxxxx;PWD=xxxxx;APP=Microsoft® Query;"
With ActiveSheet.QueryTables.Add(Connection:=conn_string, Destination:=Range("A1"))
.Sql = Array("SELECT Generation_Time, alarm_id, Generation_Date, ShiftNr, duration FROM BSREPORT.dbo.V_QA_SPS V_QA_SPS WHERE Generation_Date=" & datum & " AND ShiftNr=" & schichtnr)
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = False
.SaveData = True
End With
End Sub