This really can make your database searching much faster if you implement this to a big database.
In normal search:
Do While Not record.EOF
[search criteria]
record.MoveNext
Loop
To improve the search process, you can use this method:
Record.MoveLast
intCount=Record.RecordCount
Record.MoveFirst
For i=1 To intCount
[search criteria]
Records.MoveNext
Next i
It can improve arround 40% faster. Try it!!