para que encuentre la imagen o foto
hace una ruta con el set path to// donde se ubican las fotos
en el evento Init de la Columna1 de la Text1 del Grid1

R=Len(Alltrim(Thisform.Text1.Value))
*Select Filename AS Imagen, cDescr AS Descripcion, cArchivo AS Archivo ;
From MyImageList ;
Where Alltrim(This.Value) = SubStr(Alltrim(cDescr),1,R) ;
Into CURSOR Grilla
*Thisform.Grid1.RecordSource = "Grilla"
*Thisform.Grid1.Refresh