Agent to add readers field

Hello! I have a problem with an agent to create a readers field.

I created the agent :

Dim doc As NotesDocument

Dim newValues( 1 To 2 ) As String

newValues( 1 ) = “User 1”

newValues( 2 ) = “User 2”

Dim readersItem As New NotesItem(doc, “docReaders”, newValues, READERS)

Call doc.Save( True, True )

When the agent runs, the following error appears:

“Error Creating Product Object”.

Thank you!

Alicia