关于修改数据的代码，请指点

各位老师为数据库的数据并没有改变，本人菜鸟，请各位老师指点
 Dim cn As New SqlClient.SqlConnection("Data Source=20110623-1356;Initial Catalog=商品;Integrated Security=True")
        cn.Open()
        Dim dt As New DataSet()
        Dim dpt As New SqlClient.SqlDataAdapter("select * from 商品 where 序号= '" & Me.Tag & "'", cn)
        dpt.Fill(dt, "temp")
        dt.Tables("temp").Rows(0).BeginEdit()
        For Each ctl In Me.Controls
            Select Case TypeName(ctl)
                Case "TextBox", "combobox"
                    dt.Tables("temp").Rows(0)(ctl.name) = IIf(ctl.Text <> "", ctl.Text, System.DBNull.Value)
                   
                Case "datetimepicker"
                    dt.Tables("temp").Rows(0)(ctl.name) = IIf(ctl.Text <> "", CType(ctl, DateTimePicker).Value, System.DBNull.Value)
            End Select
        Next
        dt.Tables("temp").Rows(0).EndEdit()
        dt.Tables("temp").AcceptChanges() --------------------编程问答-------------------- dt.Tables("temp").AcceptChanges()

不对，这样并没有保存到DB

应该是用 DataAdapter.Update(dt) 

http://msdn.microsoft.com/zh-cn/library/z1z2bkx2(v=vs.80).aspx --------------------编程问答--------------------
  ds.AcceptChanges() '这一行是不能要的
  da.Update(ds.Tables(0))


除此之外，DA的updateCOMMAND没有指定

补充：.NET技术 ,  VB.NET