SQL Syntax Error

[JoWales]

Hi Everyone,

I'm creating a macro which uses a query to search a database using two variables to define the search. When I get to the line .Refresh BackgroundQuery:=False (Highlighted in code), I get a SQL Syntax error message. Here's my code, any ideas why this is happening?

Sub RefreshTable()
'
' RefreshTable Macro
'

'
Dim from As Date
Dim untill As Date

from = Range("C2").Value
untill = Range("D2").Value
    Sheets("Sheet1").Select
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=AR System ODBC Data Source;ARServer=iu-kjggg8.co.uk;ARServerPort=6512;UID=pfrhh;;ARAuthentication=;ARU" _
        ), Array("seUnderscores=1;SERVER=NotTheServer")), Destination:=Range( _
        "Sheet1!$A$1")).QueryTable
        .CommandText = Array( _
        "SELECT HPD_Help_Desk.Incident_Number, HPD_Help_Desk.Description, HPD_Help_Desk.First_Name, HPD_Help_Desk.Last_Name, HPD_Help_Desk.Priority, HPD_Help_Desk.Status, HPD_Help_Desk.SLM_Status, HPD_Help_Des" _
        , _
        "k.Company, HPD_Help_Desk.Last_Resolved_Date" & Chr(13) & "" & Chr(10) & "FROM HPD_Help_Desk HPD_Help_Desk" & Chr(13) & "" & Chr(10) & "WHERE (HPD_Help_Desk.Company='DCWR') AND (HPD_Help_Desk.Status>='Resolved') AND (HPD_Help_Desk.Last_Resolved_Date>{ts '20" _
        , _
        "from'} And HPD_Help_Desk.Last_Resolved_Date<{ts 'untill'})" _
        )
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Table_ExternalData_1"
        .Refresh BackgroundQuery:=False        
      End With
    ActiveSheet.ListObjects("Table_ExternalData_1").TableStyle = ""
    Range("B10").Select
End Sub

Thanks for your help!