FoxPro/Visual FoxPro - GRID....

lo que quiero lograr es que en el Grid me despliegue los datos de cierto cliente, del cual se pone el teléfono en un text, lo hago así, pero me marca error

locate for allt(lineascomerciales.telfact) = allt(thisform.text1.value)
if not found()
=messagebox("Teléfono no encontrado.",0,"Mensaje")
else
thisform.grid1.tel.controlsource = lineascomerciales.telfact
thisform.grid1.Titular.controlsource = lineascomerciales.titular
thisform.grid1.refresh
endif

el error que me marca es el siguiente:

the data source must be a variable reference

alguna solución o alguna otra sugerencia para realizar esta consulta???

tnks

locate for allt(lineascomerciales.telfact) = allt(thisform.text1.value)
if not found()
=messagebox("Teléfono no encontrado.",0,"Mensaje")
else
thisform.grid1.rowsource = "lineascomerciales."
thisform.grid1.tel.controlsource = "lineascomerciales.telfact"
thisform.grid1.Titular.controlsource = "lineascomerciales.titular"
thisform.grid1.refresh
endif

select * from clientes where telefono = allt(thisform.text1.value) into cursor ccliente
Thisform.grid1.recordsource = "cclienter"
thisform.grid1.tel.controlsource = "ccliente.tel"
thisform.grid1.Titular.controlsource = "ccliente.titular"
thisform.grid1.fecha.controlsource = "ccliente.fechavta"
thisform.grid1.estatus.controlsource = "ccliente.estatus"
thisform.grid1.tipo.controlsource = "ccliente.tipo"
THISFORM.GRID1.REFRESH

ahora el error es que, simplemente no despliega nada en el grid..
ayudita, por fa......