Return A Value After Insert The Query

Hi!
  
create table testReturn
(
id int identity(100,1),
name varchar(10)
)
 How can I return the value of identity column after inserting the value.

 
        Dim objConn As SqlConnection
        Dim SQLCmd As SqlClient.SqlCommand
        Dim ds As New DataSet
        Dim strsql As String


        Try

            objConn = New SqlConnection
            objConn.ConnectionString = _
                "Network Library=DBMSSOCN;" & _
                "Data Source=localhost;" & _
                "Initial Catalog=mydb;" & _
                "User ID=userid;" & _
                "Password=pass"

            objConn.Open()


            strsql = "insert into testReturn values ('a')"
            SQLCmd = New SqlClient.SqlCommand(strsql, objConn)
            Dim rowsAffected As Integer = 0
            rowsAffected = SQLCmd.ExecuteNonQuery

            Dim rv As String
            rv = SQLCmd.Parameters(0).Value.ToString()
            Response.Write(rv)
           


        Catch ex As Exception
            Response.Write(ex.ToString)
        End Try