Аксес ни на че не ругается все проходит, но выбранных записей "0". проблемма в сравнении Даты. дату убрать все нормально.
Типы данных соответствуют.
если бы данные не били или была ошибка разделителей или синтаксическая ошибка, прога бы ругнулась обязательно.

Записи есть однозначно.

Dim strSQLWhere As String

strSQLWhere = "Where [Дата] Between " & _
Me.пДатаОт & " And " & Me.пДатаДо

RsZ.Open "Select [Фамилия],[Задание],[Дата] From [tЗадания]" & _
strSQLWhere, Db, adOpenDynamic, adLockOptimistic