Hai provato anche a passare la data in questo modo?
Dati.rstotprenot.Find "datavisita = " & dat & ""

Ciao