*-- Have an index on these two fields: INDEX ON EMPTY (InsCommand) TAG E_InsCmd INDEX ON SearchTB TAG SearchTB SET ORDER TO LOCATE ; FOR SearchTB = m.lcSearch AND NOT EMPTY (InsCommand) ; IF FOUND() *Do the work CONTINUE && Locate the next qualifing record ENDIFRegards,