อัพเดต Dataset ลง Database แบบลงอีกตารางที่ไม่ใช่ตารางที่ดึงข้อมูลมา

Dim str As String = ""
        Dim conStr As String = "Data Source = XXXXXX;" _
                & " Initial Catalog = XXXXX ;" _
                & " Persist Security Info = True ;" _
                & " User ID = XXX ;" _
                & " Password = XXXXXXXXX ;"

        connection = New SqlConnection(conStr)
        connection4.Open()
        str = "Insert Into RESERVATION (GOODS_DETAIL,AMOUNT,TYPE,EMPLOYEE_RES,CUSTOM_TEL,DATE_RES)"
        sql &= "Values (@GOODS_DETAIL,@AMOUNT,@TYPE,@EMPLOYEE_RES,@CUSTOM_TEL,@DATE_RES)"

        command4 = New SqlCommand(str, connection4)
        adapter = New SqlDataAdapter(command4)
        For r As Integer = 0 To DataGridView1.RowCount - 1
            With command3
                .Parameters.AddWithValue("GOODS_DETAIL", DataGridView1.Rows(r).Cells(0).Value)
                .Parameters.AddWithValue("AMOUNT", DataGridView1.Rows(r).Cells(1).Value)
                .Parameters.AddWithValue("TYPE", DataGridView1.Rows(r).Cells(2).Value)
                .Parameters.AddWithValue("EMPLOYEE_RES", CDbl(DataGridView1.Rows(r).Cells(3).Value))
                .Parameters.AddWithValue("CUSTOM_TEL", CDbl(DataGridView1.Rows(r).Cells(4).Value))
                .Parameters.AddWithValue("DATE_RES", DataGridView1.Rows(r).Cells(5).Value)

            End With
            command3.ExecuteNonQuery()
            command3.Parameters.Clear()
        Next

        connection4.Close()
        MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "ข้อความ", MessageBoxButtons.OK, MessageBoxIcon.None)


    End Sub