Set rs = dl.OpenRecordset("SELECT DISTINCT RECDate FROM Condate Where Recdate>=" & DateValue(Format(D, "yy-mm-dd")) & " ORDER BY RECDate asc; ") 
    ¿É ÒÔ ÓÃ 
    set rs = dl.OpenRecordset("SELECT DISTINCT RECDate FROM Condate WHERE RECDate >= #" & Format(D, "yyyy-mm-dd") & "# ORDER BY RECDate ASC;") 
<END>     
    