ник: Анатолий (Киев)
Час, вам надо не лениться изучать HELP, и внимательно читать этот форум. 
В критерии отбора дата должна быть представлена в виде:
#mm/dd/yyyy#, или #m/d/yyyy#, или #mm/dd/yy#, или #m/d/yy#
Дробное число с разделителем "."
Текст должен біть взят в кавічки или апострофы, а внутри текста такой символ дублируется.
Что касается:
DATA_STR1 = Format("01/01/09", "dd.mm.yyyy")
DATA_S1 = CDate(DATA_STR1)
то у меня тоже всё работает. Что у вас получается в DATA_STR1?
Кстати, CStr() здесь совершенно лишняя, а при Null в Me!Calendar1 приведет к ошибке.