Делаешь точку останова. Смотришь что за формат тебе вернет rs.fields("ПолеСДатой").
Делаешь выводы и rs.Find Format("ЧтоИщешь", НужныйФорматДаты)

Строка из хелпа к ADO 2.6

The criterion value may be a string, floating-point number, or date. String values are delimited with single quotes or "#" (number sign) marks (for example, "state = 'WA'" or "state = #WA#"). Date values are delimited with "#" (number sign) marks (for example, "start_date > #7/22/97#").

Т.е. все работает. Вот маленькое доказательство...


Public Sub FindDate()
Dim rs As ADODB.Recordset
Dim date_find As Date
Set rs = New ADODB.Recordset
date_find = CDate("19.02.2003")
rs.Open "tbl_date", CurrentProject.Connection, adOpenKeyset, adLockReadOnly, adCmdTable

rs.Find "d =#" & date_find & "#"

'так тоже работает rs.Find "d =" & date_find
If rs.EOF Then
'nothing find
Debug.Print "Ничего не найдено!"
Else
Debug.Print rs.Fields(0), rs.Fields(1)
End If

rs.Close: Set rs = Nothing

End Sub