I am trying to update field values using RA 9.0

Any time that my program tries to save the changes to the FieldValueCollection, my program throws Error:

Laserfiche.RepositoryAccess.MultiStatusException: Access denied. (9013)
   at Laserfiche.RepositoryAccess.EntryInfo.Save()

        Try
            'Get the LF Folder object to Index
            Dim myEntry As EntryInfo = Entry.GetEntryInfo(entryID, CurSession)
            'Get the LF Field Data from entry
            Dim tempFields As FieldValueCollection = myEntry.GetFieldValues()
            'Lock the entry to edit Field Data
            myEntry.Lock(LockType.Exclusive)
            'Set Field value
            tempFields.Item(sFieldName.Trim) = sFieldData.Trim
            'Apply change to entry
            myEntry.SetFieldValues(tempFields)
            'Save changes
            myEntry.Save() ' Throws error here
            'Unlock Entry
            myEntry.Unlock()
            'Release entry object
            myEntry.Dispose()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

What am I doing wrong?