Mostrar error al tratar de borrar un registro en otra tabla!

[davidalonsso05]

De echo me dijeron que intentara algo asi:
Using cmd As New SqlClient.SqlCommand("sp_borra_t_competencia", conexion)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@id", id)

cmd.ExecuteNonQuery()

Dim rv As Object = cmd.Parameters("rv").Value



Int(id = Convert.ToInt32(rv))
If (rv = 1) Then
MessageBox.Show("El registro no fue eliminado pues blah blah")

Else

'El resultado fue cero así que el registro fue eliminado.
MessageBox.Show("El registro ya no existe.")

End If
End Using

con este SP:

ALTER procedure [dbo].[sp_borra_t_competencia]
(@id int)
As
Begin

Set NoCount On;

Delete
From T_Competencia
Where
ID = @id
And
ID Not In
(
Select Distinct id_competencia from gruporelacion
)
;

If (@@RowCount = 0) return 1;
print 'error'
return 0;
End

y de igual manera me marca error al ejecutarlo en esta linea:
cmd.ExecuteNonQuery() ///ExecuteNonQuery: la propiedad Connection no se ha inicializado.