update xml数据

Sub Initialize
 On Error Goto errormsg
 '表单最后保存时执行LotusScript代码
    Dim  sql as string,content as string
   dim doc  as notesdocument
   content = WF_document.content(0)
   sql = |update [bpmoa].[dbo].[BPM_MainData] set XmlData.modify('replace value of (/Items/WFItem[@name="addContent"]/text())[1] with "|+content+|"') where WF_DocUNID='|+WF_document.DocUNID(0)+|'|
   call rdb.connect()
   call WF_Con.Execute(sql,nothing)

   print |update successful|
Exit Sub
errormsg:
Msgbox "Form WebQuerySave Rule Error:" & Str(Erl) & "  " & Error
End Sub

*update XML中的  addContent这个属性