No me inserta nueva persona

Mirate la web:
http://www-10.lotus.com/ldd/today.nsf/Lookup/extranet2
Tiene el codigo que necesitas
Function Addusertonab(userid As String, password As String) As Integer
' Return values
' 0 for failure,
' 1 for updated person document,
' 2 for new person document
addusertonab = 0
Dim Partnernab As New notesdatabase("","Partnernab.nsf")
If partnernab Is Nothing Then Exit Function
Dim findpeople As notesview
Set findpeople = Partnernab.getview("($Users)")
If findpeople Is Nothing Then Exit Function
Dim nabpersondoc As notesdocument
Set nabpersondoc = findpeople.getdocumentbykey(userid , True)
If nabpersondoc Is Nothing Then ' add person!
Set nabpersondoc= New NotesDocument(PARTNERNAB)
nabpersondoc.Type="Person"
nabpersondoc.Form="Person"
nabpersondoc.FullName=userid
nabpersondoc.LastName=userid
nabpersondoc.HTTPPassword=password
Call nabpersondoc.computewithform(False,False)
If nabpersondoc.Save(True,False) Then addusertonab = 2
Exit Function
Else
' we'll update the password field with
' the password sent in, then exit
nabpersondoc.HTTPPassword= password
Call nabpersondoc.computewithform(False,False)
If nabpersondoc.Save(True,False) Then addusertonab = 1
Exit Function
End If
End Function
Pero este codigo tiene un inconveniente, no es inmediato.
Mirate la solución que usa un API (dll)
http://www.keysolutions.com/NotesFAQ/howuser.html