Search Result

Do While Not rss.EOF
Do While Not prers.EOF

If rss.Fields(0).Value = prers.Fields(1).Value Then
///match found   
some action..............

If Not rss.EOF Then rss.MoveNext
prers.MoveFirst          

Else
If Not prers.EOF Then prers.MoveNext     /match not found, reched with against another prers value

End If

Loop

prers.MoveFirst