Excel - Definir hora y fecha al consultar datos por query

Private Sub CommandButton1_Click()

Range("A1:G100").Clear

  With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _

        "ODBC;Driver={OpenRDA};Server=OpenRDA;Database=oil;UID=engineer;PWD=engchuq;", _

        Destination:=Range("$A$1")).QueryTable

        .CommandText = Array( _

        "SELECT HISTORY.myName, HISTORY.dpValue, HISTORY.TIME, HISTORY.DATE, HISTORY.H_INTERVAL, HISTORY.SAMPLES" & Chr(13) & "" & Chr(10) & "FROM OAUSER.HISTORY HISTORY" & Chr(13) & "" & Chr(10) & "WHERE (HISTORY.myName='A100_PCOMUN_Hz') AND (HISTORY.TIME=0100)  AN" _

        , _

        "D (HISTORY.DATE='11-jul-17') AND (HISTORY.H_INTERVAL='1s') AND (HISTORY.SAMPLES=60)" _

        )

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .BackgroundQuery = True

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .PreserveColumnInfo = True

        .ListObject.DisplayName = "Tabla_Consulta_desde_oil18"

        .Refresh BackgroundQuery:=False   ' EN ESTE PUNTO ME ARROJA EL ERROR 1004 POR LA APLICACION O EL OBJETO

    End With

End Sub