Repuerar todos los registros de un recordSet despues de un Find

[koisis]

Basicamente es esto Repuerar todos los registros de un recordSet despues de un Find , tampoco estaría de mas si sabeis como buscar por dos campos a la vez en un recordSet
Os muestro algo de codigo:
While Not RsReservas.EOF
RsReservas.Find " FechaIn = '" & FechaIn & "' ",0,1,1
If Not RsReservas.EOF And Not RsReservas.BOF Then
RsReservas.Find " FechaOut = '" & FechaOut & "' ",0,1,1
Necesito dos cosas La primera y fundamental es recuperar los registros anteriores a hacer el find , y tambien volverlo a dejar por el mismo registro por el que iba .
Esto no me importa mucho pero.. estaria bien si alguien lo supiera buscar por dos campos a la vez
Un Saludo y Gracias