Visual Basic.NET - NO REPETIR DATOS EN SQL Y VISUAL

Private Sub TextBox2_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox2.Validating

    'Me.GruposTableAdapter.Fill(Me.BaseDatosDataSet.Grupos)

    Dim consultaSQL As String = "SELECT COUNT(NumeroDeParte) FROM Stencilproto WHERE NumeroDeParte ='" & TextBox2.Text & "' ''"

    If consultaSQL <> TextBox2.Text Then

        MsgBox("duplicado", , "ERROR")

    ElseIf consultaSQL = TextBox2.Text Then

        MsgBox("no es duplicado", , "aceptado")

    End If

End Sub

--validar datos

select count(*) from Stencilproto where NumeroDeParte = NumeroDeParte

If consultaSQL <> TextBox2.Text Then

Dim consultaSQL As String = "SELECT COUNT(NumeroDeParte) FROM Stencilproto WHERE NumeroDeParte ='" & TextBox2.Text & "' ''"

':::Creamos nuestro objeto OleDbDataAdapter para ejecutar la consulta - este objeto depende de la base de datos que uses

':::El Con corresponde a la cadena de conexión

Dim Da As New OleDbDataAdapter(consultaSQL, Con)

':::Creamos nuestro DataTable para almacenar el resultado

Dim Dt As New DataTable

':::Llenamos nuestro DataTable con el resultado de la consulta

Da.Fill(Dt)

If  Dt.Rows.Count > 0 Then

    MsgBox("duplicado", , "ERROR")

Else

   MsgBox("no es duplicado", , "aceptado")

End If