Utilizar un SP con Output de SQL en VB

[davidalonsso05]

Te agradesco enormemente tu tiempo drako_darpan, lo que sucede es que ya lo hice mediante select como tu me das la opcion y de echo es el mismo codigo del SP que tengo al que me proporcionas, sin embargo "me pidieron" que hiciera la misma operacion (borrar) mediante 3 store procedure diferente: select, output y return, hasta ahorita llevo el primero que es de SELECT, me falta el de output que proporcione y tambien el de RETURN, si me pudieras ayudar con cualquiera de los dos, SP del return :):

Código SQL:

ALTER PROCEDURE [dbo].[SPReturn]
(@id nvarchar(50))  
AS  
DELETE FROM  T_Competencia   
WHERE ID=@id AND ID  NOT IN (SELECT DISTINCT id_competencia FROM t_gruporelacion)  
   
IF @@rowcount > 0  RETURN 0
  
ELSE RETURN 1
 

Y te enseño el codigo de VB que me funciono para el Store procedure de los SELECT:

Código vb:

id = TextBox4.Text
        res = MessageBox.Show("Desea borrar la tienda?", "Tienda Competencia", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
 
        If res = vbYes Then
            sql = " exec sp_Borra_Competencia " + id + ""
            conectar()
            com = New SqlClient.SqlCommand(sql, conexion)
            dr = com.ExecuteReader
            If dr.Read Then
                MsgBox(dr(0).ToString())
 
 
            End If
        End If
        llenar_grid2()
 

Ahí aplico el ExecuteReader que me mencionas :)
Gracias por tu tiempo!