datoproblem, når data hentes fra access

Er der nogen der kan hjælpe med denne kode.
Hvis jeg fravælger valg af dato fungerer den fint.
jeg får fejlmeddelelsen,  SQL Syntaxfejl

Sub Makro3()
'
' Makro3 Makro
'

'
    Dim Ws As Object
   
    'aktuel arknavn
  Set Ws = Sheets("Ark3")
   
    'slet nuværende indhold
  Ws.Activate
  Range("C2:D800").Activate
  Selection.CurrentRegion.Select
  Selection.ClearContents
  Range("A1").Select
 
    Dim tmp1 As Date
    Dim tmp2 As Date

    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=MS Access-database;DBQ=C:\Programmer\Videokartotek\Data\Video_be.mdb;DefaultDir=C:\Programmer\Videokartotek\Data;DriverId=2" _
        ), Array("5;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), Destination:= _
        Range("C2"))
       
        tmp = InputBox("Årstal")
        tmp1 = InputBox("Fra dato")
        tmp2 = InputBox("Til dato")
       
        .CommandText = Array( _
        "SELECT Optagelse.Titel, Optagelse.Årstal, Optagelse.Dato, Optagelse.Spilletid" & Chr(13) & "" & Chr(10) & "FROM `C:\Programmer\Videokartotek\Data\Video_be`.Optagelse Optagelse" & Chr(13) & "" & Chr(10) & "WHERE (Optagelse.Årstal='" & tmp & "') AND (Optagelse.Dato" _
        , ">= {ts '" & tmp1 & "'} And Optagelse.Dato<= {ts '" & tmp2 & "'})")
       
        .Name = "Forespørgsel fra MS Access-database"
        .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