>>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