Dim rs As Recordset
Dim cnn as Connection
Dim rsSQL as String
Set ........
rsSQL="sDNI = " & "'" & "22.456.235" & "'"
rs.Find rsSQL, , adSearchBackward
De esta manera con el parámetro "adSearchBackward" buscás en el recordset desde el final hacia el Principio.
Es como el FindLast de DAO