SELECT * FROM tabl WHERE (ДатаВызова Between #21/04/2005# And #01/07/2005#); не работает - VB

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

Ни кто не сталкивался с подобным глюкам. Делаю в ADoDB выборку из Recordset по дате

SELECT * FROM tabl WHERE (ДатаВызова  BETWEEN #21/04/2005# AND #01/07/2005#);

или

SELECT * FROM tabl WHERE ДатаВызова  > (#21/04/2005#) AND ДатаВызова < (#01/07/2005 #);

Даты разные ну т.к вот, все ок, пока конечная дата не равна 1 ому числу любого меяца. Если ДАТА = 1 в отбор не попадает ни одна дата.

Решение задачи: «SELECT * FROM tabl WHERE (ДатаВызова Between #21/04/2005# And #01/07/2005#); не работает»

textual
                            Листинг программы 
                        
                            strSQL = "Select * from SomeTable Where MyDate between " & DateToSql(date1) & " and " & DateToSql(date2)
 
where
 
Public Function DateToSql( d as Date) as String
    DateToSql = "#" & Format(d, "mm/dd/yy") & "#"
End Function