后台新建文档问题

[Johnses]

我想用代理后台新建文档，代理代码如下：
Sub Initialize
　Dim workspace As New NotesUIWorkspace
　Dim uidoc As NotesUIDocument
　Set uidoc = workspace.ComposeDocument( "", "", "New" )
　Call uidoc.GotoField( "AAA" )
　uidoc.document.AAA=1
　uidoc.document.BBB=2
　uidoc.document.CCC=3
　Call uidoc.save
　Call uidoc.close
End Sub
　
可总是报错：Agent 'NewS' error: Error creating product object
　
求大家帮忙！
　
NotesUIWorkspace和NotesUIDocument是前台的还是后台的？
如果是前台的，那后台的怎么做呢？

[Lutx]

dim s as new notessessoin
dim db as NotesDatabase
dim doc as NotesDocument

set db = s.currentdatabase
set doc = db.createdocument
doc.AAA = 1
doc.BBB = 2
doc.CCC = 3
doc.Form = "New"
doc.save true,true

[zxfwind]

在当前数据库中新建
dim session as new notessession
dim db as notesdatabase
dim doc as notesdocument

set db = session.currentdatabase
set doc = db.createdocument

doc.Form="formname"
doc.fieldname="fieldvalue"
call doc.save(true,false)