What causes this to happen? (Missing line of code) Fixed - please disregard this post.

SELECT entity
FOR TheCount = 1 TO entitycount
GOTO TheCount First pass error occurs here RECORD IS OUT OF RANGE - Yet there is data in the table and there is a record with text in the first position. no index
IF UPPER(ALLTRIM(WordUsed)) $ UPPER(Caught2)
SELECT results
REPLACE entity WITH entity.WordUsed
Select entity *** This line was missing
? entity.WordUsed && test
ENDIF
NEXT TheCount