>with thisform.pageframe1.page2.Grid1 > .RecordsourceType = 4 && SQL > .Columncount = -1 > .Recordsource = 'select innoumber,price,total,w1,w2,t1,t2,t3,datein,billno from mstr'+; > ' where UPPER(inname) = UPPER(TRIM(thisform.pageframe1.page1.text1.Value)) and nam1 = thisform.pageframe1.page1.text4.Value and datein>=thisform.pageframe1.page1.text3.value .and. datein<=thisform.pageframe1.page1.text5.value '+; > ' into cursor crsMyCursor' > IF _TALLY > 0 >Thisform.Pageframe1.ActivePage = 2 >ELSE >MESSAGEBOX( [No Records match your crtieria] ) >ENDIF > >ENDWITH >thisform.pageframe1.page2.text1.value=thisform.pageframe1.page1.text1.Value >thisform.pageframe1.page2.text2.value=thisform.pageframe1.page1.text4.Value >sum innoumber to thisform.pageframe1.page2.text3.value >sum total to thisform.pageframe1.page2.text4.value >sum t1 to thisform.pageframe1.page2.text5.value >sum t2 to thisform.pageframe1.page2.text6.value >sum t3 to thisform.pageframe1.page2.text7.value > > count to thisform.pageframe1.page2.text8.value >>thanks.