ช่วยดูให้หน่อยค่ะ ทำไมมันถึง Save ลงฐานข้อมูลไม่ได้ และก็ไม่ Error ด้วยค่ะ

If (txtProductName.Text.Trim() = "") OrElse (txtAmount.Text.Trim() = "") OrElse (txtLastCost.Text.Trim() = "") OrElse (txtPrice.Text.Trim() = "") Then
            MessageBox.Show("กรุณาป้อนข้อมูลที่มีเครื่องหมาย * ให้ครบทุกช่อง !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            txtProductName.Focus()
            Exit Sub
        End If

        If MessageBox.Show("คุณต้องการบันทึกสินค้าใหม่ ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            tr = Conn.BeginTransaction()
            Try
                sb.Remove(0, sb.Length)
                sb.Append("INSERT INTO Product (ProdID,ProdName,SupID,CategoryID,Date,LastCost,SalePrice,Amount)")
                sb.Append(" VALUES (@ProdID, @ProdName, @SupID, @CategoryID, @Date, @LastCost, @SalePrice, @Amount)")
                Dim sqlAdd As String
                sqlAdd = sb.ToString()

                With com
                    .CommandText = sqlAdd
                    .CommandType = CommandType.Text
                    .Connection = Conn
                    .Transaction = tr
                    .Parameters.Clear()
                    .Parameters.Add("@ProdID", SqlDbType.Char).Value = txtProductID.Text.Trim()
                    .Parameters.Add("@ProdName", SqlDbType.NVarChar).Value = txtProductName.Text.Trim()
                    .Parameters.Add("@SupID", SqlDbType.NVarChar).Value = CStr(cboSupplier.SelectedValue)
                    .Parameters.Add("@CategoryID", SqlDbType.NVarChar).Value = CStr(cboCategory.SelectedValue)
                    .Parameters.Add("@Date", SqlDbType.DateTime).Value = lblDate.Text.Trim()
                    .Parameters.Add("@LastCost", SqlDbType.Real).Value = txtLastCost.Text.Trim()
                    .Parameters.Add("@SalePrice", SqlDbType.Real).Value = txtPrice.Text.Trim()
                    .Parameters.Add("@Amount", SqlDbType.Int).Value = txtAmount.Text.Trim()

                    .ExecuteNonQuery()
                End With
                tr.Commit()
                MessageBox.Show("เพิ่มสินค้าใหม่ เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)

                ClearAllData()
                ShowData()
                FormatdgvProductList()
            Catch ex As Exception

                tr.Rollback()
            End Try
        End If
        txtProductID.Focus()