[VB.NET] Recuperare valore SELECT da stored procedure di inserimento

[fermat]

ciao!

ho una SP con la quale inserisco i dati in una tabella.
la parte "centrale" è questa:

    BEGIN TRY
        INSERT INTO [dbo].[Richieste] (
            [RicReferente]
            ,[RicIntervento]
            ,[RicCondominio]
            ,[RicDataInizio]
            ,[RicDataUltimo]
            )
        VALUES (
            @RicReferente
            ,@RicIntervento
            ,@RicCondominio
            ,@RicDataInizio
            ,@RicDataUltimo
            );

        SELECT @RecordID = @@IDENTITY
    END TRY

da VB.NET come faccio a recuperare quella SELECT??
ho provato così ma mi da sempre zero:

Protected Sub btnInviaRichiesta_Click(sender As Object, e As EventArgs) Handles btnInviaRichiesta.Click
        oConn.Open()
        Dim cmd As SqlCommand = New SqlCommand("[usp_InsertRichiesta]", oConn)
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Parameters.Clear()
        cmd.Parameters.AddWithValue("@RicReferente", uid)
        cmd.Parameters.AddWithValue("@RicIntervento", drpDestin.SelectedValue)
        cmd.Parameters.AddWithValue("@RicCondominio", drpCond.SelectedValue)
        cmd.Parameters.Add("@RecordID", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
        cmd.ExecuteNonQuery()
        oConn.Close()
        Diagnostics.Debug.WriteLine(cmd.Parameters("@RecordID").Value)
    End Sub

ovviamente i record sono inseriti correttamente.