bueno, yo no programa con varmem, mejor lo hago orientado a objetos, asi de sencillo:
en el click del text1, del grid u otro evento que te convenga:
select gafas
set filter to Alltrim(GAFAS.PACIENTE)=Alltrim(lnombre)
Thisform.text1.value=gafas.nombre
Thisform.text2.value=gafas.fecha_de_consulta
Thisform.text3.value=gafas.direccion && o el dato que quieras mostrar
Thisform.Grid1.Refresh
Suerte►