从Table1加载数据然后保存到Table2

Question

我需要从表1加载数据。将数据加载到数据网格视图后，我必须将其保存到另一个表（表2）。

'' Load data
            Dim cmdSQL As String = "SELECT * FROM Table1"
            Dim ds_Tbl As New DataSet
            Dim cmdBuilder As New SqlClient.SqlCommandBuilder
            Dim da As New SqlClient.SqlDataAdapter(cmdSQL, connection)
            cmdBuilder = New SqlCommandBuilder(da)
            da.Fill(ds_Tbl, "Table2")
            dgvTables.DataSource = ds_Tbl.Tables(0) '

'' Save data Me.Validate() da.Update(ds_Tbl.Tables("Table2")) ds_Tbl.AcceptChanges()

我更喜欢使用命令构建器，因为这个代码放在一个循环中，我可以将各种表一次加载到一个数据网格中，然后将其保存到其他指定的表中。加载没问题，但保存不成功。请帮忙。