hi,
thank you for reply,

this is the code, any help

SET KEY TO &lcValue., &lcValue//i dont understand this statment
SELECT book1
index on no tag no
lcvalue=[']+UPPER(ALLTRIM(THISFORM.TEXT24.VALUE))+[']
SET FILTER TO UPPER(NO)=&lcvalue.
LOCATE
IF EOF()
=MESSAGEBOX("NOT FOUND")
ELSE
THISFORM.GRID4.REFRESH
ENDIF

endif