Ronaldo, eu resolvi este problema de pesquisas a datas da seguinte forma:

primeiro defini uma variável

                                          dim data_teste as date

e o comando ficou assim:

("select * from calendário WHERE data= #" & data_teste & "#   order by data desc ")

Ivan