Ejecutar un SP de SQL con Select en VB

[davidalonsso05]

Buen dia!
Estoy trabajando con SQL server 2005 y tengo el siguiente SP:

Código SQL:

ALTER PROCEDURE [dbo].[sp_Borra_Competencia]
(@id INT)
AS
DELETE FROM  T_Competencia 
WHERE ID=@id AND ID  NOT IN (SELECT DISTINCT id_competencia FROM t_gruporelacion)
 
IF @@rowcount > 0
BEGIN 
SELECT 'Mensaje'='Se borro la tienda con ID ' + CONVERT(VARCHAR(10),@id)
END 
ELSE IF @ID NOT IN(SELECT ID FROM T_Competencia)
SELECT 'Mensaje'='La tienda no existe' 
ELSE
 
SELECT 'Mensaje'='Error: La tienda tiene relacion con ID ' + CONVERT(VARCHAR(10),@id)
 

Mi pregunta es: Como implementarlo en Visual studio 2005 para que me ejecute las mismas instrucciones por ejemplo antes tenia este codigo en VB:

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
id = t4.Text
res = MessageBox.Show("Desea borrar la tienda?", "T_Competencia", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)

If res = vbYes Then
If t4.Text <> "" Then
sql = "exec sp_borra_competencia'" + id + "'"
conectar()
com = New SqlClient.SqlCommand(sql, conexion)
res = com.ExecuteNonQuery

conexion.Close()
MessageBox.Show("Registro Borrado")


End If
End If
llenar_grid2()
End Sub

Pero solo me mostraba que se habia borrado el registro cuando no lo borraba por las condiciones, lo que yo quiero es presentar los select del SP en VB..

Gracias de ante mano!