Sql Update after insert

See more:

VB

I am trying to issue an Update after a INSERT SQL command. The purpose behind the update is to add the auto number ID field to a year and store it as text.

Here is part of my code after the INSERT SQL with SELECT SCOPE_IDENTITY() statement (which works fine):

identity = Integer.Parse(SQLCmd.ExecuteScalar().ToString())
objConnection.Close()
Dim txtAssessmentID As String
' Set Assessment ID
txtAssessmentID = identity.ToString
txtAssessmentID = Year(Today) & "-" & txtAssessmentID.PadLeft(5, "0"c)
strSQL = "UPDATE tblAssessment SET assessmentID = @assessmentID WHERE ID = " & identity
SQLCmd = New SqlCommand() 'The SQL Command
objConnection.Open() 'Open the connection
SQLCmd.Connection = objConnection 'Sets the Connection to use with the SQL Command
SQLCmd.CommandText = strSQL 'Sets the SQL String
SQLCmd.Parameters.AddWithValue("@assessmentID", txtAssessmentID)
Try
    objCommand.ExecuteNonQuery()
    objConnection.Close()
    ' Load Personell Evaluations
Catch ex As Exception
    lblAlert.Text = "Problem updaaating record"
End Try

Any help would be appreciated.