With Selection.QueryTable
        .Connection = "ODBC;DSN=SQL Anywhere 5.0 Sample Client"
        .CommandText = Array( _
        "SELECT CIM3Mould150034.TimeProd FROM disa.CIM3Mould150034" & _
        "CIM3Mould150034, disa.LPP150034 LPP150034" & Chr(13) & "" & Chr(10) & _
        "WHERE CIM3Mould150034.MouldIndex = LPP150034.MouldIndex AND" _
        , _
        " ((CIM3Mould150034.TimeProd Between {ts '2004-04-01'} And {ts" & _
        "'2004-04-03'}))" _
        )
        .Refresh BackgroundQuery:=False
    End With