Inputting Random Numbers To Table Column From Web Form

I'm grappling with this issue which I thought was basic VB programming; I'm trying to insert a random number (between 100 and 999) into a SQL table column (=Status_ID). This is input as part of a user submitting helpdesk requests via a APS.Net Web Form. The 'Status_ID' field is obviously not visible to the user but will help reference this Helpdesk request on the database.
Here is the code:
Protected Sub submitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles submitButton.Click
        If Page.IsValid Then
            ' Define data objects
            Dim conn As SqlConnection
            Dim comm As SqlCommand
            ' Read the connection string from web.config
            Dim connectionString As String = _
            ConfigurationManager.ConnectionStrings("ITNet_Students").ConnectionString
            ' Initialize connection
            conn = New SqlConnection(connectionString)
            ' Create command
            comm = New SqlCommand( _
            "INSERT INTO HelpDesk (First_Name, Last_Name, StudentID, PersonalEmail," & _
            "CategoryID, SubjectID, Description, StatusID) " & _
            "VALUES (@First_Name, @Last_Name, @StudentID, @PersonalEmail, " & _
            "@CategoryID, @SubjectID, @Description, @StatusID)", conn)
            ' Use randomize
            Randomize()
            Dim randomvalue As Integer
            ' Generate random value between 999 and 100.
            randomvalue = Int((900 * Rnd()) + 100)
            ' Add command parameters
            comm.Parameters.Add("@First_Name", System.Data.SqlDbType.NVarChar, 50)
            comm.Parameters("@First_Name").Value = fnameTextBox.Text
            .

            .
            .

            comm.Parameters.Add("@StatusID", System.Data.SqlDbType.Int)
            comm.Parameters("@StatusID").Value = randomvalue
            'Enclose database code in Try-Catch-Finally
            Try
                ' Open connection
                conn.Open()
                ' Execute the command
                comm.ExecuteNonQuery()
                ' Reload page if the query executed successfully
                Response.Redirect("HelpDesk.aspx")
            Catch
                ' Display error message
                dbErrorMessage.Text = _
                    "Error submitting the help desk request! Please try again later, and/or change the entered data!"
            Finally
                'close connection
                conn.Close()
            End Try
        End If
    End Sub
----------------------------------------------------------------------------------------------------------------------
I keep getting the error message under 'Catch'  and the page 'HelpDesk.aspx' is not reloading; the 'comm.ExecuteNonQuery()' is not executing.
Can anyone spot any inconsistencies in the declaration of the 'randomvalue' variable?
P.S: this code works fine if you replace 'randomvalue' with any integer in 'comm.Parameters("@StatusID").Value = randomvalue'