>lNomb = ALLTRIM (This.Value)
>
>SELECT CContratos.NOMBRE, CContratos.CONTRATO, CContratos.DECHA, CContratos.PRESTAMOA, CContratos.IMPORTE, CContratos.FECHAREF, CContratos.FECHACOMER, CContratos.STAT;
>FROM CContracts WHERE CContratos.NAME LIKE "% lNomb%" INTO Cursor CONTRNOMB readwrite
>Thisform.Grid1.RecordSourceType = 1
>ThisForm.Grid1.RecordSource = 'CONTRNOMB'
>Thisform.Grid1.Refresh

Does this work? ... LIKE "% &lNomb%" ... or this? ... LIKE "% " + lNomb + "%" ...