DATAGRID怎么增加列,设置列标题和设置列的内容

我已经把DATAGRID的数据源通过代码和ADODB的RECORDERSET捆绑成功
Set SaleAreaDG.DataSource = RsSaleArea
但我现在想在已有的DATAGRID列后面增加2列,请问如何使用DATAGRID增加一列问题1:如何增加1列
问题2:如何设置新增列的标题
问题3:如何设置新增列的值我自己试了下,出错,代码如下
  SaleAreaDG.Columns.Add 2  '增加列,列的索引是2
  SaleAreaDG.Columns.Item(2).Caption = "合计"  '设置列标题
  SaleAreaDG.Columns.Item(2).Text = RS1.FIELD(2)+RS1.FIELD(4) '赋值到最后1句出错,前2就没问题.出错提示: 
    实时错误"6147",列未找到 |1这是什么原因,应该怎么做?谢谢
备注:(备注内容是帮助各位大虾理解,只做说明,)
1.增加的列标题用于数据源部分字段的合计
2.由于记录集是交叉表,所以字段名及个数无法在SQL语句用SELECT SUM()确切写出来,而且不是每个字段都需要合计的,只有在生成记录集后在DATAGRID显示