Validar datos duplicados Vb.net con SP(sql Server)

[gonzalezjesus_77]

Buenos dias Amigos Del Forum, Tengo un nuevo desafio,deseo que al Insertar Un Registro desde Visual a SQL Serve exista Una validacion que me indique que ya existe Ese Nuevo dato y que por lo tanto no se llevara a cabo toda insercion de los demas Campos. Les confieso no se como Hacerlo en Visual. De Hecho al intentar ingresar datos duplicado no se insertan los datos, mas no hay un mensaje desde visual que lo indique.
Este es el codigo de Insercion desde Un procedimiento en SQl Server:

Código:

ALTER procedure [dbo].[pp_ins_Cliente]  
 @co_cli char(10),
 @cli_des varchar(100),
 @rif char(18), 
 @telefonos varchar(60),
 @ciudad varchar(50),
 @fecha_reg smalldatetime,
 @zona varchar(50),
 @entidad varchar(100),
 @email varchar(60)
AS

if exists( select* from Clientes where rif = @rif)
return 1 --error,Cedula ya Existe
else
BEGIN
	
			insert into Clientes(co_cli,cli_des,rif,telefonos,ciudad,
                       fecha_reg,zona,entidad,email)
               values (@co_cli,@cli_des,@rif,@telefonos,@ciudad,
                       @fecha_reg,@zona,@entidad,@email)
return 0 --ok
raiserror ('Datos Insertados', 16,1)

end

Este es el codigo de VB:

Código:

Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.Click
        Try
            Dim conex As New SqlConnection(ConfigurationManager.ConnectionStrings("CONEXION").ConnectionString)
            conex.Open()

            Dim cmd As New SqlCommand("pp_ins_Cliente", conex)

            cmd.CommandType = CommandType.StoredProcedure

            cmd.Parameters.Add("@co_cli", SqlDbType.Char).Value = TextBox1.Text
            cmd.Parameters.Add("@cli_des", SqlDbType.VarChar).Value = TextBox3.Text
            cmd.Parameters.Add("@rif", SqlDbType.Char).Value = TextBox2.Text
            cmd.Parameters.Add("@telefonos", SqlDbType.VarChar).Value = TextBox8.Text
            cmd.Parameters.Add("@ciudad", SqlDbType.VarChar).Value = TextBox7.Text
            cmd.Parameters.Add("@fecha_reg", SqlDbType.SmallDateTime).Value = TextBox4.Text
            cmd.Parameters.Add("@zona", SqlDbType.VarChar).Value = TextBox5.Text
            cmd.Parameters.Add("@entidad", SqlDbType.VarChar).Value = TextBox6.Text
            cmd.Parameters.Add("@email", SqlDbType.VarChar).Value = TextBox9.Text
            cmd.ExecuteNonQuery()

            conex.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
            MsgBox("Datos Guardados")
        End Try

End Sub