select (this.RowSource) lnTotal = 0 scan lnTotal = lnTotal + TheColumn endscan thisform.txtGrandTotal.Value = lnTotal && assumed displayer of the value>I would like to add all the integers in a grid. I'm sure this is quite easy but currently I have no ideas. Help is greatly appreciated.