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

[davidalonsso05]

Bien ya lo modifique y quedo asi:
conexion = New SqlClient.SqlConnection("server=us;database=tienda s;Integrated Security=True")
Using cmd As New SqlClient.SqlCommand("sp_borra_t_competencia", conexion)

cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@id", id)

conexion.Open()
cmd.ExecuteNonQuery()
conexion.Close()

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

conexion.Open()

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

Else

MessageBox.Show("El registro ya no existe.")

End If
End Using

y me marca este error:
cmd.ExecuteNonQuery() <--Procedure or Function 'sp_borra_t_competencia' expects parameter '@id', which was not supplied.

y cuando realizo otro tramite y luego intento borrar me marca este otro:
Dim rv As Object = cmd.Parameters("rv").Value
SqlParameterCollection no contiene SqlParameter con ParameterName 'rv'.