Dim BtDate as Date

                If Len(Range("A4")) > 0 And IsDate(Range("T6")) Then
                BtDate = Range("A4")

         (select ...CAST(ROUND(1/a.midpoint,6) AS NUMERIC(18,6))  from .... a WHERE xdate <= '" &  BtDate  & "' group by currency) c on ...a.currency = c.currency and a.xdate =c.maxdate WHERE a.currency like '%' order by Currency;")