x1=ALLTRIM(UPPER(this.Parent.txt1.Value)) LOCATE FOR x1$UPPER(notes) thisform.nccNotes_Pointer=RECNO('ccNOTES') this.Parent.grdNOTES.Refresh() this.Parent.edt2.Refresh() x2=UPPER(ccNOTES.notes) x3=AT(x1,x2) && find the start in the memo this.Parent.edt2.SelStart=x3 this.Parent.edt2.SelLength=LEN(x1) && epect the word th be highlightd, but isntbut it does not highlight