ник: Анатолий (Киев)
Для SQL дата должна выглядеть так: #MM/DD/YYYY#
Нужно так:
"#" & Format(date, "MM\/DD\/YYYY") & "#"
или (короче и понятнее):
Format(date, "\#MM\/DD\/YYYY\#")
Вы очень неосторожно используете "+" для конкатенации строк. Если один из элементов будет Null, то и результат будет Null, а ели типа число или дата - вылетит ошибка.
Используйте "&", тогда и CStr не понадобится.
Вместо:
Dim tmp As String
tmp = FindMaxDateInString(rs.Fields("НазвПоля"))
If tmp <> "" Then
Я бы сделал так (нет лишних преобразований дата-текст-дата):
Dim tmp As Date
tmp = FindMaxDateInString(rs.Fields("НазвПоля"))
If tmp <> 0 Then
Успехов!