Access data kan ikke sorteres efter dato

Dette er en fortsættelse på
http://www.eksperten.dk/spm/711961
Jeg kom godt nok et skridt videre,
jeg kan filtrere på årstal og Spilletid uden problemer.
Men når jeg vil filtrere på datofeltet, får jeg kun overskrifterne på tabellerne ind i arket (ingen fejlmeddelelser)
jeg har forsøgt med alle mulige datoformater.

Koden er denne (som driller)

Sub Makro16()
Dim Ws As Object
Dim sql As String

  'aktuel arknavn
  Set Ws = Sheets("Ark3")

  'slet nuværende indhold
  Ws.Activate
  Range("C2:F800").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"))

     
      'tmp1 = InputBox("Fra dato")
      'tmp2 = InputBox("Til dato")
      '[Tid] referere til Celle A4 i ark3
     
      sql = "SELECT Optagelse.Titel, Optagelse.Årstal, Optagelse.Dato, Optagelse.Spilletid"
      sql = sql & " FROM `C:\Programmer\Videokartotek\Data\Video_be`.Optagelse"
      sql = sql & " WHERE ((Optagelse.Spilletid)>=" & [Tid] & ")  AND(((Optagelse.Dato)>=" & [Fra] & ") AND ((Optagelse.Dato)<=" & [Til] & "))"

   
      .CommandText = Array(sql)
      .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