Restringir sobre una consulta access

Buenas,
Tengo un formulario, que entre otras cosas comprueba una serie de
datos introducidos con los datos que tengo en una consulta :

Set rs = CurrentDb.OpenRecordset("producciontest")
Do While Not rs.EOF
If ((rs![Poliza] = Form.Poliza) And (rs!Colectivo = Form.Colectivo)
And (Round(rs![Coste Bonificación], 2) = Form.Coste And (rs![S/Remesa]
= Form.Tomador)))
Then
Call MsgBox(" Existe")

_______

Esto hace que si coinciden los 4 datos, continue haciendo otras
cosas.

El problema es que la consulta tiene 40000 registros, y se pega unos
20 segundos hasta que encuentra los datos, y se hace eterno.

Quisiera saber si me podriais ayudar con esto.
Yo creo que deberia crear una sentencia sql donde me muestre las
lineas de la consulta, pero filtradas por ejemplo por el nº de la
poliza que se introduce, entonces seria instantanea la comprobación,
pero estoy un poco perdido en el tema.

A ver si me podeis echar una mano.

Gracias otra vez!!