مشكلة في عرض رسالة تنبيه

لدي كود حفظ بحيث يحفظ البيانات دون تكرار لقيمة معينة(رقم الكتاب) وتم تنفيذ الكود

لكن عند حفظ بيانات مكررة للقيمة المعينة يظهر رسالة تنبيه المرفقة

وأنا أرغب في عمل رسالة تنبه المستخدم بالتكرار تكون واضحة وتم كتابتها لكن لم تظهر

هل مكانها بالكود صحيح؟

Private Sub Button_B_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_B_Save.Click
        Try

            con.Open()
            If ComboBox_B_Class.Text <> "" And TextBox_B_Name.Text <> "" And TextBox_B_No.Text <> "" Then
                com_insert_books.Parameters("BookName").Value = TextBox_B_Name.Text
                com_insert_books.Parameters("BookNo").Value = TextBox_B_No.Text
                com_insert_books.Parameters("PartsNumber").Value = TextBox_B_PartsNum.Text
                com_insert_books.Parameters("Quantity").Value = TextBox_B_Quantity.Text
                com_insert_books.Parameters("AuthorName").Value = TextBox_B_AuthorName.Text
                com_insert_books.Parameters("VersionDate").Value = TextBox_B_VersionDate.Text
                com_insert_books.Parameters("PublishingHouse").Value = TextBox_B_PublishingHouse.Text
                com_insert_books.Parameters("ShelfNo").Value = TextBox_B_ShelfNo.Text
                com_insert_books.Parameters("Classification").Value = ComboBox_B_Class.SelectedItem
                com_insert_books.Parameters("Nots").Value = TextBox_B_Nots.Text
                If com_insert_books.ExecuteNonQuery Then
                    MessageBox.Show("تم الحفظ بنجاح", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

                    DataSet_da_books1.Clear()
                    da_books.Fill(DataSet_da_books1)
                Else
                    MessageBox.Show("عفواً رقم الكتاب مكرر", "", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

                End If

            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            con.Close()
        End Try
    End Sub

شاكر لكم