DocLink in RTF anlegen

hi,
ich würde gern nach der auswahl eines dokuments aus einer picklist (LS) innerhalb einer maske einen link auf das ausgewählte dokument in der maske in einem feld speichern. wie geht das? hier mal mein source:

Sub Postopen(Source As Notesuidocument)
	Dim nuiw As New notesUIWorkspace
	Dim nd As NotesDocument
	Dim doc As NotesDocument
	Dim ns As New NotesSession
	Dim dc As NotesDocumentCollection
	Dim server As String
	Dim path As String
	Set nd = source.Document
	If(nd.designation(0)="") Then
		source.AutoReload = False
		server = ns.CurrentDatabase.Server
		path = ns.CurrentDatabase.FilePath
		Set dc = nuiw.PickListCollection( PICKLIST_CUSTOM, False, server, path, "view", "Choose!", "Please choose from the list!" )
		If (dc.GetFirstDocument Is Nothing) Then
			Call source.Close(True)
			Msgbox("Selection error! You need to choose.")
			Exit Sub
		End If
		Set doc= dc.GetFirstDocument
		Call nd.ReplaceItemValue("inner",doc.inner(0))
		Call nd.ReplaceItemValue("outer",doc.outer(0))
		Call nd.ReplaceItemValue("width",doc.width(0))


'#####################################
'hier soll der source hin, der einen doclink zu doc in einem RTF namens gbx erstellt
'#####################################


		Call source.Reload
	End If
End Sub

ich bin mir gerade nciht ganz sicher wie ich das hinbekommen kann. ich hab folgendes versucht:

Dim gbx As New NotesRichTextItem(nd,"body")
Call gbx.AppendDocLink(doc,"Bearing")

das endet aber in einer fehlermeldung:
could't get default view id for database

ich weiß nicht genau was das bedeuten soll

ok, das klappt jetzt, aber der link wird nicht angezeigt in meinem RTF in der maske. das script ist übrigens im postopen der maske.

das heißt also, dass alles erst beim nächsten öffen angezeigt wird, nachdem das dokument geschlossen und gespeichert wurde. das würde mir reichen. ich habe nun noch die zeile 'Call nd.CopyItem(gbx,"gbx")' eingefügt, weil ich dachte, dass das rtf ja auch erstmal ins dokument einfügt werden muss. beim ausführen dieser zeile stürzt notes jedoch komplett ab. ich geh also davon aus, dass das falsch ist. wie genau müsste das aussehen?

edit:
ich ahb es jetzt mal mit
Call gbx.CopyItemToDocument(nd,"gbx")
versucht --> notes stürzt ab!

also gehe ich davon aus, dass die beiden erstgenannten zeilen reichen. wenn ich das dokument aber dann speicher und neu öffne ist das feld leer.

irgendwie verwirrt mich die sache grad wirklich. ich versthe jetzt, ich muss das aus dem vorhandenen ziehen:

Set gbx= nd.GetFirstItem("body")
Call gbx.AppendDocLink(doc,"gbx")

gbx hat keinen wert und der compiler sagt: object variable not set