USE MSTR EXCL Append From Dbf('temp') replace w1 with thisform.text14.value replace w2 with thisform.text16.value With thisform.grid1 .recordsource = '' Select temp Zap && i get error message any idea *delete all .recordsource = 'temp' thisform.text1.SetFocus thisform.refresh endwith ****************** with thisform.Grid1 .Recordsource = .Recordsource endwith ******************************************** thisform.text1.value=space(10) thisform.text2.value=ctod(" / / ") thisform.text3.value=space(10) thisform.text4.value=space(10) thisform.text5.value=space(10) thisform.text6.value=0 thisform.text7.value=0 thisform.text8.value=0 thisform.text10.value=0 SELECT mstr SELECT MAX(BILLNO) FROM mstr INTO ARRAY laArray IF _TALLY > 0 THISFORM.TEXT1.VALUE = laArray + 1 ELSE THISFORM.TEXT1.VALUE = 1 ENDIF With thisform.grid1 .recordsource = '' Select temp SET EXCLUSIVE off && i get error message any idea Zap * delete all .recordsource = 'temp' thisform.text1.SetFocus thisform.refresh endwith thisform.grid1.refreshthanks