>Set DataSession To oAppObj.DataSessionId >Select MyTable >loRetData = Createobject('Empty') >AddProperty( loRetData, 'records', Reccount() ) >If Reccount() > 0 > AddProperty( loRetData, Textmerge( 'Row[<< reccount() >>]' )) > Scan > Scatter Name loRetData.Row[recno()] > Endscan >Endif >set datasession to this.DataSessionID >messagebox( loRetData.Row[1].SomeField ) >Cetin