หาค่า sum จาก 2 table . . . ถามต่ออีกหน่อยแล้วกันนะคับ ที่นี้ผมจะหาผลรวมของช่องจำนวนเงินคับ

<form name="EditList" method="post" action="report_bank.asp">
                      <center>กรุณาใส่ เลขที่ต้องการเรียกดูรายงานงบประมาณ รายรับ-รายจ่าย ประจำเดือนนั้นๆ<br>ตัวอย่างการค้นหา เช่น ถ้าต้องการเรียกดูรายงานของเดือน ตุลาคม ให้ใส่ เลข 10 ในการค้นหา<br>
					  <input type="text" name="keyword" value="<%=Request.Form("keyword")%>"> 
                        <input type="submit" name="Submit" value="ค้นหา">
                      </center>
					  <% 
					  if Request.Form("keyword")="" Then
					  Response.write("<br>กรุณากรอกชื่อเดือนที่ต้องการเรียกดู . . .<hr>")
					  Else
					  Set Conn=Server.Createobject("ADODB.Connection")
					  Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("Database/db_school.mdb"),"" , ""
					  'หรือจะใช้เป็น Conn.Open "product","",""
					  sql ="Select t1.*,t2.* From Tb_expenses t1,Tb_income t2 where t1.ID = t2.ID AND ID_date_ex like '%"&Request.Form("keyword")&"%'"
					  Set Rs = Conn.Execute(sql)
					  If Rs.EOF Then
					  %>
						 ไม่มีข้อมูลในตาราง !
					  <%Else%>
					  <table border="1">ตารางแสดงราย รายรับ-รายจ่าย ประจำเดือนที่ : <%= Rs("ID_date_ex")%>
					  <tr bgcolor="Silver" size="500">
					  <td>-รายรับ-</td>
					  <td><center>ชื่อของรายรับต่างๆ</center></td>
					  <td><center>จำนวนเงิน</center></td>
					  <td><center>ว/ด/ป(ที่ได้รับเงิน)</center></td>
					  <td>-รายจ่าย-</td>
					  <td><center>ชื่อของรายจ่ายต่างๆ</center></td>
					  <td><center>จำนวนเงิน</center></td>
					  <td><center>ว/ด/ป(ที่จ่ายเงินไป)</center></td>
					  </tr>
					  <% While Not Rs.EOF%>
					  <tr>
					  <td><center><%= Rs("ID")%></center></td>
					  <td><%= Rs("Name_expenses")%></td>
					  <td><%= Rs("How_much_ex")%></td>
					  <td><center><%= Rs("Date_ex")%></center></td>
					  <td><center><%= Rs("ID")%></center></td>
					  <td><%= Rs("Name_income")%></td>
					  <td><%= Rs("How_much")%></td>
					  <td><center><%= Rs("Date_income")%></center></td>
					  </tr>
					  <% Rs.MoveNext
					  Wend
					  Rs.Close
					  Conn.Close
					  End If
					  %>
					  </table>
					  <%
					  end if 
					  %>