สอบถาม บันทึกลงฐานข้อมูล 1 Field จาก Table ลงอีก Table หลาย ๆ Field

tr = Conn.BeginTransaction()
            Try
                sb = New StringBuilder()
                sb.Append("INSERT INTO TotalPrint(DateSavePrint,EmployeeID,Fullname,DepID,SerialNo,QtyBW,QtyColor,PBW,PColor,Total)")
                sb.Append(" VALUES (@DateSavePrint,@EmployeeID,@Fullname,@DepID,@SerialNo,@QtyBW,@QtyColor,@PBW,@PColor,@Total)")
                Dim sqlAdd As String
                sqlAdd = sb.ToString()
                MsgBox(sqlAdd)

                With com
                    .CommandText = sqlAdd
                    .CommandType = CommandType.Text
                    .Connection = Conn
                    .Transaction = tr
                    .Parameters.Clear()
                    .Parameters.Add("@DateSavePrint", SqlDbType.DateTime).Value = dtpSavePrint.Value.ToShortDateString
                    .Parameters.Add("@EmployeeID", SqlDbType.NVarChar).Value = txtEmployeeID.Text.Trim()
                    .Parameters.Add("@Fullname", SqlDbType.NVarChar).Value = txtFullName.Text.Trim()
                    .Parameters.Add("@DepID", SqlDbType.NVarChar).Value = txtDepartment.Text.Trim()
                    .Parameters.Add("@SerialNo", SqlDbType.NVarChar).Value = CStr(cboNamePrint.SelectedValue)
                    .Parameters.Add("@QtyBW", SqlDbType.Int).Value = Int(txtQtyBW.Text.Trim())
                    .Parameters.Add("@QtyColor", SqlDbType.Int).Value = Int(txtQtyColor.Text.Trim())
                    .Parameters.Add("@PBW", SqlDbType.Float).Value = CSng(txtPriceBW.Text.Trim()).ToString.Trim(CChar("#,###.00"))
                    .Parameters.Add("@PColor", SqlDbType.Float).Value = CSng(txtPriceColor.Text.Trim()).ToString.Trim(CChar("#,###.00"))
                    .Parameters.Add("@Total", SqlDbType.Float).Value = CSng(txtNetPrice.Text.Trim()).ToString.Trim(CChar("#,###.00"))
                    .ExecuteNonQuery()
                End With
                tr.Commit()
                MessageBox.Show("เพิ่มข้อมูลรายละเอียดการพิมพ์ของพนักงานใหม่ลงฐานข้อมูล เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
                ClearAllData()
                ShowData()
                FormatDgvprintList()
            Catch ex As Exception
                MessageBox.Show("ตรวจสอบข้อมูลที่ป้อน !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                tr.Rollback()
            End Try
        End If