สอบถามการตรวจสอบค่าที่ซ้ำกันในตาราง เมื่อมีการ Insert ข้อมูล ASP.NET vb.net

'ประการ ObjConn

Dim objConn As New SqlConnection("Data Source=xxxxxx;Initial Catalog=xxxx;User ID=sa;Password=xxxxx")

'  และ objCmd  ผมใส่ Dim ไปข้างหน้าเลย จากตัวอย่าง 
'  ส่วน strSQL ผมใส่เป็น  

Dim strSQL As String = ""  

Protected Sub btnSaveDevList_Click(sender As Object, e As EventArgs) Handles btnSaveDevList.Click
        Dim strSQL As String = ""
        If ddlPersonnel_Entrance.SelectedValue = "0" Then
            Response.Write("<script language=javascript> alert ('กรุณาเลือกผู้เข้าร่วมโครงการ'); </script>")
            Return
        ElseIf ddlProject_Entrance.SelectedValue = "0" Then
            Response.Write("<script language=javascript> alert ('กรุณาเลือกชื่อโครงการที่เข้าร่วม'); </script>")
            Return
        Else
            Response.Write("<script language=javascript> alert ('ข้อมูลครบถ้วน'); </script>")

            '----------------------------------

            Dim intNumRows As Integer

            strSQL = "SELECT COUNT(*) FROM vw_AllData WHERE Per_ID = '" & Me.ddlPersonnel_Entrance.SelectedValue & "'"
            strSQL &= "AND Project_ID = '" & Me.ddlProject_Entrance.SelectedValue & "' "
'ตรงนี้เช็ค (คนเดิมห้ามเข้าร่วมโครงการเดิม โดย WHERE จาก SelectedValue ของ Dropdownlist) >> ทำงานได้ปกติ

            Dim Cmd = New SqlCommand(strSQL, Conn)
            Conn.Open()
            intNumRows = CInt(Cmd.ExecuteScalar())

            If intNumRows > 0 Then

                Me.lblStatus.Visible = True
                Me.lblStatus.Text = "บุคคนนี้ได้เข้าร่วมโครงการนี้แล้ว กรุณาตรวจสอบ !"
                
            Else

                strSQL = "INSERT INTO tbl_DevList (Dev_ID,Per_ID,Project_ID)"
                strSQL &= "VALUES ( dbo.NextDevelopNumber() ,'" & ddlPersonnel_Entrance.SelectedValue & "','" & ddlProject_Entrance.SelectedValue & "')"


                Cmd = New SqlCommand
                With Cmd
                    .Connection = Conn
                    .CommandText = strSQL
                    .CommandType = CommandType.Text
                End With

                Try
                    Cmd.ExecuteNonQuery()
                    Me.lblStatus.Text = "บันทึกข้อมูลเรียบร้อยแล้ว"
                    Me.lblStatus.Visible = True
                Catch ex As Exception
                    Me.lblStatus.Visible = True
                    Me.lblStatus.Text = "ไม่สามารถบันทึกข้อมูลได้ กรุณาตรวจสอบข้อผิดพลาด!! (" & ex.Message & ")"
                End Try

            End If
        End If
    End Sub