vb，如何把一个表的多次金额汇总到另一个表？

我有一个支付金额的表和一个总表，现在需要把一个合同多次支付的的金额加以来放到总表对应的合同名称的总金额里。请问如何实现？请高手详细说明。

sql = "select cno,contractname,clientname,signing_time,amount,(select sum(pay_amount) from jjpay where contractname = jjhetong.contractname) payment,unpaid,memo from jjhetong "
rs.Open sql, conn, adOpenDynamic, adLockPessimistic

select 合同 ，(select sum(金额) from 支付表 where 合同号=合同表.合同号) from 合同表

那就加法嘛。、

总表中所有项目逐个计算总金额呗

EXCEL表？