Can't get data from database

[smartguy05]

I am trying to get the output from a stored procedure. When I enter a value into the stored procedure directly in SQL server management studio it works fine, but when I do it using my code I get nothing. But if I use cmd.parameters( "@oOCR").va lue then I get the first 5 characters, but the last 5 are all zeros. Here is my current code:

Public Sub GetPlayerCardNumber(ByVal input As String)
        Dim con As SqlConnection = New SqlConnection("Data Source=" & DB1 & ";Initial Catalog=WinOasis;Persist Security Info=True;User ID=" _
                                                     & DBUsername & "; password=" & DBPassword)
        Dim cmd As SqlCommand
        Dim Ireturn As String
        Dim SQLRdr As SqlDataReader

        If con.State = ConnectionState.Closed Then con.Open()
        cmd = New SqlCommand("GW_Magtoocr", con)
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Parameters.Add("@iMag", SqlDbType.Char, 18)
        cmd.Parameters("@iMag").Value = input
        cmd.Parameters.Add("@oOCR", SqlDbType.VarChar, 10)
        cmd.Parameters("@oOCR").Value = "4"
        cmd.Parameters("@iMag").Direction = ParameterDirection.Input
        cmd.Parameters("@oOCR").Direction = ParameterDirection.InputOutput
        cmd.ExecuteNonQuery()

        SQLRdr = cmd.ExecuteReader

        While SQLRdr.Read
            Ireturn = SQLRdr.GetValue(1)
        End While

        MsgBox(Ireturn)
        con.Close()
        'SQLRdr.Close()

    End Sub

[debasisdas]

Please check this, just might help you.