VS2010 SqlDataReader

Jeg har nedenstående kodestykke, men det returnerer altid 99 = SqlDataReaderen ikke får læst ordentligt...
Er der nogen der kan finde fejlen??

Har "vedhæftet" kode og stored procedure

***********************************************************
Kildekode:
***********************************************************
Function OpretFag(ByVal iFag_type As Integer, ByVal bFag_aktiv As Boolean, ByVal sFag_titel As String, ByVal sFag_manchet As String, ByVal sFag_indhold As String,
                      ByVal sFag_amuNr As String, ByVal sFag_kursusbevis As String, ByVal sFag_modulstatus As String, ByVal sFag_omfang As String, ByVal sFag_eksamen As String,
                      ByVal sFag_adgang As String, ByVal Sfag_kontakt As String, ByVal sFag_Jobmuligheder As String, ByVal sFag_blivkontaktet As String, ByVal sFag_seoBeskrivelse As String,
                      ByVal sFag_seoOrd As String, ByVal bFag_visWWW As Boolean) As Integer
        Dim sqlCon As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings("ConnectionString"))
        Dim cmd As New SqlCommand
        Dim oReader As SqlDataReader
        Dim iResultat As Integer

        cmd.CommandText = "FagOpret"
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Parameters.Add(New SqlParameter("@fag_type", SqlDbType.Int))
        cmd.Parameters("@fag_type").Value = iFag_type
        cmd.Parameters.Add(New SqlParameter("@fag_aktiv", SqlDbType.Bit, 1))
        cmd.Parameters("@fag_aktiv").Value = bFag_aktiv
        cmd.Parameters.Add(New SqlParameter("@fag_titel", SqlDbType.VarChar, 100))
        cmd.Parameters("@fag_titel").Value = sFag_titel
        cmd.Parameters.Add(New SqlParameter("@fag_manchet", SqlDbType.VarChar, 500))
        cmd.Parameters("@fag_manchet").Value = sFag_manchet
        cmd.Parameters.Add(New SqlParameter("@fag_indhold", SqlDbType.VarChar, -1))
        cmd.Parameters("@fag_indhold").Value = sFag_indhold
        cmd.Parameters.Add(New SqlParameter("@fag_amuNr", SqlDbType.VarChar, 100))
        cmd.Parameters("@fag_amuNr").Value = sFag_amuNr
        cmd.Parameters.Add(New SqlParameter("@fag_kursusbevis", SqlDbType.VarChar, 500))
        cmd.Parameters("@fag_kursusbevis").Value = sFag_kursusbevis
        cmd.Parameters.Add(New SqlParameter("@fag_modulstatus", SqlDbType.VarChar, 500))
        cmd.Parameters("@fag_modulstatus").Value = sFag_modulstatus
        cmd.Parameters.Add(New SqlParameter("@fag_omfang", SqlDbType.VarChar, 500))
        cmd.Parameters("@fag_omfang").Value = sFag_omfang
        cmd.Parameters.Add(New SqlParameter("@fag_eksamen", SqlDbType.VarChar, 500))
        cmd.Parameters("@fag_eksamen").Value = sFag_eksamen
        cmd.Parameters.Add(New SqlParameter("@fag_adgang", SqlDbType.VarChar, 500))
        cmd.Parameters("@fag_adgang").Value = sFag_adgang
        cmd.Parameters.Add(New SqlParameter("@fag_kontakt", SqlDbType.VarChar, 500))
        cmd.Parameters("@fag_kontakt").Value = Sfag_kontakt
        cmd.Parameters.Add(New SqlParameter("@fag_Jobmuligheder", SqlDbType.VarChar, 500))
        cmd.Parameters("@fag_Jobmuligheder").Value = sFag_Jobmuligheder
        cmd.Parameters.Add(New SqlParameter("@fag_blivkontaktet", SqlDbType.VarChar, 500))
        cmd.Parameters("@fag_blivkontaktet").Value = sFag_blivkontaktet
        cmd.Parameters.Add(New SqlParameter("@fag_seoBeskrivelse", SqlDbType.VarChar, 200))
        cmd.Parameters("@fag_seoBeskrivelse").Value = sFag_seoBeskrivelse
        cmd.Parameters.Add(New SqlParameter("@fag_seoOrd", SqlDbType.VarChar, 300))
        cmd.Parameters("@fag_seoOrd").Value = sFag_seoOrd
        cmd.Parameters.Add(New SqlParameter("@fag_visWWW", SqlDbType.Bit, 1))
        cmd.Parameters("@fag_visWWW").Value = bFag_visWWW
        cmd.Connection = sqlCon
        sqlCon.Open()
        oReader = cmd.ExecuteReader()
        oReader.Read()
        If oReader.HasRows Then
            iResultat = oReader.Item(0)
        Else
            iResultat = 99
        End If
        oReader.Close()
        sqlCon.Close()
        sqlCon = Nothing
        Return iResultat
    End Function

***********************************************************
    Stored procedure:
***********************************************************
PROCEDURE FagOpret
@fag_type int, @fag_aktiv bit, @fag_titel varchar(100), @fag_manchet varchar(500), @fag_indhold varchar(max),
@fag_amuNr varchar(100), @fag_kursusbevis varchar(500), @fag_modulstatus varchar(500), @fag_omfang varchar(500),
@fag_eksamen varchar(500), @fag_adgang varchar(500), @fag_kontakt varchar(500), @fag_Jobmuligheder varchar(500),
@fag_blivkontaktet varchar(500), @fag_seoBeskrivelse varchar(200), @fag_seoOrd varchar(300), @fag_visWWW bit
AS
    declare @indeks int
BEGIN

SET NOCOUNT ON;

BEGIN TRANSACTION
    insert into Fag values
    (@fag_type, @fag_aktiv, @fag_titel, @fag_manchet, @fag_indhold, @fag_amuNr, @fag_kursusbevis, @fag_modulstatus, @fag_omfang, @fag_eksamen, @fag_adgang, @fag_kontakt, @fag_Jobmuligheder, @fag_blivkontaktet, @fag_seoBeskrivelse, @fag_seoOrd, @fag_visWWW)
    if @@ERROR = 0
        begin
            COMMIT TRANSACTION
            set @indeks = @@IDENTITY
        end
    else
        begin
            ROLLBACK TRANSACTION
            set @indeks = 0
        end   
       
    return @indeks       
   
END