return value from stored proc using MS Data Access Application Block

[hansiman]

How do I read a stored proc return value ( return(@return_value) )
using MS Data Access Application Block.

Normally I use:

Dim conn As SqlConnection = New
SqlConnection("connectionstring")
Dim cmd As SqlCommand = New SqlCommand
cmd.Connection = conn
cmd.CommandText = "NameOfStoredProc"
cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.Add("@Param1", SqlDbType.Int)
cmd.Parameters("@Param1").Value = [value]

Dim retParam As SqlParameter =
cmd.Parameters.Add("@return_value", SqlDbType.Int)
retParam.Direction = ParameterDirection.ReturnValue

conn.Open()
cmd.ExecuteNonQuery()
conn.Close()

[local var] = retParam.Value

I figure I must use SqlHelper.ExecuteScalar... but can't find out how!

Please help

Morten