Почему Recordset не понимает формат даты ??? - VB

Формулировка задачи:

Пишу следущее предложение
Rec_fr.Open ("SELECT * FROM XXX where DATE_DOC = {d '2003-06-06'}")
Выдается сообщение об ошибке
Run-Time Error '-2147217900 (80040e14)'
Неверно сформированный код GUID. в выражении запроса 'DATE_DOC = {d '2003-06-06'}'

Решение задачи: «Почему Recordset не понимает формат даты ???»

textual
                            Листинг программы 
                        

                            Function strDateSQL(ByVal d <font color="blue">As</font> Date) <font color="blue">As</font> String
<br>    strDateSQL = Month(d) & <b><font color="green">"/"</font></b> & Day(d) & <b><font color="green">"/"</font></b> & Year(d)
<br><font color="blue">End</font> Function
                        