代码优化的问题请教?

Question

如下代码向各位请教，那种方式更好点啊
方法1
money = money + Val(Lab1(0)) + Val(Lab1(1)) + Val(Lab1(2)) + Val(Lab1(3)) + Val(Lab1(4)) + Val(Lab1(5))
                  Lab1(0) = 0
                  Lab1(1) = 0
                  Lab1(2) = 0
                  Lab1(3) = 0
                  Lab1(4) = 0
                  Lab1(5) = 0
                  Lab1(0).Visible = False
                  Lab1(1).Visible = False
                  Lab1(2).Visible = False
                  Lab1(3).Visible = False
                  Lab1(4).Visible = False
                  Lab1(5).Visible = False
                  ToData
                  S_ok = False
                  Bet = ""其中 todata代码如下
Dim i As Integer, temp As Integer, Ctemp As Integer
   'cnn.CursorLocation = adUseClient
  ' cnn.Open "Provider=SQLOLEDB.1;Password=ygx001;Persist Security Info=True;User ID=sa;Initial Catalog=LunPan;Data Source=EASTSOFT-01"
  '
   'Set DataGrid1.DataSource = rs
   Set rs = ExecuteSQL("select * from ##bm  where game_play='" & Trim(User) & "'", "")
     If rs.EOF Then
        rs.AddNew
     End If
       rs.Fields("Game_jx") = Trim(c_JX)
       rs.Fields("game_cz") = Trim(c_CZ)
       rs.Fields("game_play") = Trim(User)
       rs.Fields("num_11") = Lab1(0)
       rs.Fields("num_12") = Lab1(1)
       rs.Fields("num_13") = Lab1(2)
       rs.Fields("num_14") = Lab1(3)
       rs.Fields("num_15") = Lab1(4)
       rs.Fields("num_16") = Lab1(5)
    rs.Update
方法2
Set rs = ExecuteSQL("delete   from ##bm  where game_play='" & Trim(User) & "'", "")
  For i = 0 To 5
   If Lab1(i) > 0 Then
    money = money + Lab1(i)
    Lab1(i).Visible = False
   End If
  Next两个方法都用到了一个数据库查询ExecuteSQL（）

Answer 1

最初的一段用个循环好了，后面操作数据库的还是用INSERT吧：
insert into 表 values(....) where not exist("select * from ##bm  where game_play='" & Trim(User) & "'", "")你参考一下吧，单引号双引号的我都没细看。