ได้ผลรวมแล้วจะเอาผลรวมไปลบกับอีกคอลัมน์ของอีกตารางทำยังไงครับ

<%
SET rs=Server.CreateObject("ADODB.Recordset") 
SET rsMiss=Server.CreateObject("ADODB.Recordset")
SET rsYear=Server.CreateObject("ADODB.Recordset")
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("dbfile\PP30db.mdb")

sqlMiss = "SELECT AutoID, TIN, BraNam, JurNam, ISIC From company WHERE AutoID="&Request.QueryString("id1")
rsMiss.open sqlMiss,conn,1,3
Response.Write "<BR><BR><CENTER><font size='3'> <font color=black><B>รายละเอียด</B></CENTER><BR>"
Response.Write "<CENTER><B>TIN : </B>"&rsMiss("TIN")&"<B> &nbsp;&nbsp;สถานประกอบการ : </B> "&rsMiss("BraNam")&"&nbsp;&nbsp;<B>ชื่อ-สกุล : </B>"&rsMiss("JurNam") &" <B> &nbsp;&nbsp;ISIC : </B>"&rsMiss("ISIC")&"<HR></CENTER><BR>"

sqlYear = "SELECT DISTINCT PP_Year FROM PP30 WHERE AutoID="&Request.QueryString("id1")& " ORDER BY PP_Year"
rsYear.open sqlYear,conn,1,3
rsYear.MoveFirst
Do While Not rsYear.Eof

sql = "SELECT SUM(SaleTax1) As S1, SUM(SaleTax5) As S2 FROM PP30 WHERE AutoID="&Request.QueryString("id1")& " AND PP_Year="&rsYear("PP_Year")
rs.open sql,conn,1,3
'	 On Error Resume Next
IF rs.RecordCount =0 THEN
Response.Write "<CENTER><font face='MS Sans Serif' size='2' color='#3300CC'>* * * ไม่พบข้อมูล * * * <BR><form><input type=button value='ปิดหน้าจอนี้' onClick='javascript:window.close();'></form></CENTER><BR>"
Else
Response.Write "<TABLE table border=1 width=500 cellspacing=0 bordercolor=black bordercolordark=white bordercolorlight=black>"
Response.Write "<TH BGCOLOR='#CCCCCC'><font size='2'> <font color=black>&nbsp;พ.ศ.&nbsp;</TH><TH BGCOLOR='#CCCCCC'><font size='2'> <font color=black>&nbsp;&nbsp;มูลค่าของตราสาร&nbsp;&nbsp;</TH><TH BGCOLOR='#CCCCCC'><font size='2'> <font color=black>&nbsp;&nbsp;อากรแสตมป์&nbsp;&nbsp;</TH>"
Response.Write "<TR><TD ALIGN='CENTER'><font size='2'> <font color=black><b>"&rsYear("PP_Year")&"</TD><TD ALIGN='RIGHT'><font size='2'> <font color=black><b>"&FormatNumber(rs("S1"),2)&"</TD><TD ALIGN='RIGHT'><font size='2'> <font color=black><b>"&FormatNumber(rs("S2"),2)&"</TD></TR>"
Response.Write"</TABLE><BR>"
END IF
rsYear.MoveNext
rs.Close
loop

conn.Close

%>