Get SQL Server SCOPE_IDENTITY Using ADO.NET Command Parameter

Hi,

I’m using ASP.NET 2005.  The following code works using a stored procedure and the SqlDataReader (my Rdr.Read), but I would like to replace the following code with the ADO.NET command parameter to get the SCOPE_IDENTITY:

'Get Identity ID
        If Rdr.Read Then
            Me.lblStatus.Text = "Created Record ID: " & Rdr(0)
        End If

I tried the following with no success to get the SCOPE_IDENTITY:
        cmd.Parameters.Add("SCOPE_IDENTITY", Data.SqlDbType.Int)
        cmd.Parameters(0).Direction = Data.ParameterDirection.ReturnValue

My Stored Pocedure is as follows:
CREATE PROCEDURE [dbo].[spInsTestSite]
@fknGeneratorID [numeric]
AS
INSERT INTO .dbo.aTest
( [GeneratorID])
VALUES
( @fknGeneratorID)
SELECT SCOPE_IDENTITY() AS [SCOPE_IDENTITY]



********My entire VB.NET code is as follows:

Private Sub ExecStoredProc()

        Dim sSQL As String

        'Set up sql string and connection
        sSQL = "spInsTestSite"

        'Use clsDatabase class for connection string
        sCon = oCon.SqlConString
        Dim Con As SqlConnection = New SqlConnection(sCon)

        Dim cmd As New SqlCommand
        With cmd
            'Create connection object
            .Connection = New SqlConnection(sCon)
            'Set the SQL
            .CommandText = sSQL
            .CommandType = Data.CommandType.StoredProcedure
        End With

        cmd.Parameters.Add("@fknGeneratorID", Data.SqlDbType.Int)
        cmd.Parameters("@fknGeneratorID").Value = Me.ddlGenerator.SelectedValue
       
        cmd.Connection.Open()
              Dim Rdr As SqlDataReader = cmd.ExecuteReader()
   
        'Get Identity ID
        If Rdr.Read Then
            Me.lblStatus.Text = "Created Record ID: " & Rdr(0)
        End If

        cmd.Connection.Close()
    End Sub

Thanks,
Denise