[VB.NET]vb.net+sql汇总表的问题！！！高手请指教！！！

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
vb.net+sql汇总表的问题！！！高手请指教！！！
到最后阶段了希望老大们在帮帮小弟。
多表的汇总查询，运算， 可是登陆到汇总浏览表后却没有数据，不知道是哪里的问题请指教。
还有就是我以前的保存 为什么我多按一次数据库中的记录就多一条一样的 应该用程序怎么控制呢？请高手给代码指教！
__________________________________________________________________________
Protected Sub abc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles abc.Click
If Session( "safepage_exist ") = 0 Then
If enviry.Text = " " Then
msg.Text = "请将信息填写完整! "
Return
End If
Dim conn As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings( "strConn "))
conn.Open()
Dim strSelect As String = "select * from 月份数据动态表 where 企业名称= '' " & Session( "企业名称 ") & " '' and 年 = " & Year(Now) & " and 月 = " & Month(Now)
Dim adp As New SqlDataAdapter(strSelect, conn)
Dim ds As New DataSet()
adp.Fill(ds, "月份数据动态表 ")
Dim dt As DataTable = ds.Tables( "月份数据动态表 ")
Dim dr As DataRow
dr = dt.NewRow()
dr( "企业名称 ") = qy.Text
……
dr( "录入状态 ") = 1
dt.Rows.Add(dr)
Dim cmdbld As New SqlCommandBuilder(adp)
adp.Update(ds, "月份数据动态表 ")
conn.Close()
conn = Nothing
End If
End Sub
应该怎样才能保存后就不在多增加数据。
__________________________________________________________________________
预防按钮的多次点击
http://community.csdn.net/Expert/topic/5504/5504913.xml?temp=.7231409
__________________________________________________________________________
Partial Class _Default
Inherits System.Web.UI.Page
Private shtfy As Single = 0 汇总表中这样定义变量可以吗
----------------------------------------------------------下面是连接定义
Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
Dim conn As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings( "strConn "))
Dim sql As String = "select * from 月份数据动态表 where 年 = " & Year(Now) & " And 月 = " & Month(Now)
Dim sql1 As String = "select * from 单船统计指标 where 年 = " & Year(Now) & " And 月 = " & Month(Now)
Dim comm As SqlCommand = New SqlCommand(sql, conn)
Dim comm1 As SqlCommand = New SqlCommand(sql1, conn)
conn.Open()
Dim rs As SqlDataReader = comm.ExecuteReader()
Dim rs1 As SqlDataReader = comm1.ExecuteReader()
大家看我这样连接打开数据库 然后进行查询运算有问题不
do while rs.read（）
if 条件 then
shtfy = shtfy + rs( "营业费用 ")
……
这样给变量赋上值可以吗，然后还有计算
shtye = shtfy / shte * 100%

shtottrexp.Text = shtye.ToString 最后在表中显示 大家看看 我哪里出问题了
__________________________________________________________________________
这种计算应该在存储过程中做……
__________________________________________________________________________
存储过程是什么意思
__________________________________________________________________________
没有人来呀 大家帮帮忙阿
__________________________________________________________________________
去 sql的板块去问问就知道啦
__________________________________________________________________________
还有保存问题呢
可是我改的话工作量很大的 我需要尽快完成 谁能帮我在原有基础上改一下
小弟再次谢谢大家了
__________________________________________________________________________
shei 来救火
__________________________________________________________________________
很急了 请大家来 多给指点
感激不尽
__________________________________________________________________________