SoloCodigo

Tengo enormes problemas para obtener los registros que están entre 2 fechas:

En la base de datos hay registros entre 19/10/2005 y 28/11/2005. Si le pido entre 10/11/2005 y 20/11/2005 me trae también los de Octubre. ¿ Por qué?

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DBQ=c:\WINDOWS\Escritorio\MeteoStation.mdb;DefaultDir=c:\WINDOWS\Escritorio;Driver={Microsoft Access Driver (*.mdb)};DriverId=2" _
        ), Array( _
        "5;ExtendedAnsiSQL=1;FIL=MS Access;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCom" _
        ), Array("mitSync=Yes;")), Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT DISTINCTROW Format$([Datos].[Fecha],'Short Date') AS Día, Max([Datos].[Valor]) AS [T MAX]" & Chr(13) & "" & Chr(10) & "FROM `c:\WINDOWS\Escritorio\MeteoStation`.Datos Datos" & Chr(13) & "" & Chr(10) & "GROUP BY Format$([Datos].[Fecha],'Short Date')," _
        , _
        " [Datos].[NumParametro], [Datos].[NumFuncion]" & Chr(13) & "" & Chr(10) & "HAVING (((Format$([Datos].[Fecha],'Short Date')) between ? and ?) and ((Datos.NumParametro) Like 6) AND ((Datos.NumFuncion) Like 4));" & Chr(13) & "" & Chr(10) & "" _
        )
        .Name = "Consulta desde MeteoStation"
        .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