How can I do so more records appears on the whole grid

*********************************************************
SET FILTER TO UPPER(ALLTRIM(TEL)) = UPPER(alltrim(thisform.pageframe1.page1.text1.value))

THISFORM.REFRESH
*********************************************************

The filter does not take effect until you move the record pointer.

So after you set the filter, I suggest that you

GO TOP

in the grid's RecordSOurce.