Not sure if l got that. You want to check a text field in the first ten records of a database is of equal value ?

Code:
rs.movefirst
sName = rs!FirstName
rs.movenext
'
for x = 0 to 8
   if rs!Firstname <> sName then
          MsgBox "I'm a big Kaftan wearing Blouse"
          Exit For
   end if
   rs.moveNext
   if rs.eof then exit for
Next x
Am thinking this is a bit more complex than first appears kovan. Could you elaborate a wee bit more.