How can I duplicate the following code using the seek command:

 SCAN
 SELECT Invoice
 LOCATE FOR in_code = lnCustCode
   DO WHILE FOUND()
     do some code
     CONTINUE
   ENDDO
 SELECT sometable
 ENDSCAN

The is extremely slow as this codes is already in another loop and therefore a locate for the whole table is execute each time.

Thanks in advance.