SELECT email_anexo
SCAN
   *** Why are you refreshing the form here?
   *** This is a great idea id your code is running too fast
   *** And you would like to slow it down     
   thisform.refresh    
   SELECT emails
   LOCATE FOR emails.cod = email_anexo.id
   REPLACE spam WITH NOT FOUND() IN email_anexo.
ENDSCAN