Creating DocLink in current editable uidoc using LotusScripts

Hi,

I have a button on a form.
And I want to create a doclink & paste it in a RichTextField in my uidoc after clicking the button to create a document in another db.

So far, the doc will be created in another db successfully, but it just doesn't create a doclink of it in my uidoc when/after I save.
Any problems with my program?
Or is there any other way to create the same effect as my program?

Thanks alot in advance!

Here is my codes of the hotspot button.

      Dim ws As New NotesUIWorkspace
      Dim sess As New NotesSession
      Dim db As NotesDatabase, dbData As NotesDatabase
      Dim vProf As NotesView, vLookupData As NotesView
      Dim uidoc As NotesUIDocument
      Dim doc As NotesDocument, docProf As NotesDocument, docData As NotesDocument
      Dim rtitem As NotesRichTextItem, rtitemDocLink As NotesRichTextItem, item As NotesItem
      Dim AttachFilePath As Variant, object As NotesEmbeddedObject
      
      Set uidoc = ws.CurrentDocument
      Set doc = uidoc.Document
      Set db = sess.CurrentDatabase
      Set vProf = db.GetView("vMaintAppSetup")
      Set docProf = vProf.GetFirstDocument
      Set dbData = sess.GetDatabase(db.Server, docProf.MaintDataFilePath(0))
      Set vLookupData = dbData.GetView("vAll")
      
      AttachFilePath = ws.OpenFileDialog(False, "Select File to attach...", "", "c:", "")
      If Not Isempty(AttachFilePath) Then
            'Set rtitemDocLink = New NotesRichTextItem(doc, "UseCaseLink")
            Set rtitemDocLink = doc.GetFirstItem("UseCaseLink")
            
            Set docData = vLookupData.GetDocumentByKey(doc.LogNo(0), True)
            If docData Is Nothing Then  'If current doc is new Data
                  Set docData = New NotesDocument(dbData)
                  docData.Form = "frmData"
                  docData.LogNoData = doc.LogNo(0)
                  Set rtitem = New NotesRichTextItem(docData, "AttachData")
                  Set object = rtitem.EmbedObject(1454, "Microsoft Excel Worksheet", AttachFilePath(0))
                  Call docData.Save(True, False)
                  Call rtitemDocLink.AppendDocLink(docData, "Attachment")
                  Call doc.Save(True, False)
                  Call uidoc.Refresh(True)
                  Call uidoc.Save
                  Call uidoc.Close
                  
            Else  'Existing Data
                  'remove the existing attachment & attach the new one into
                  Call docData.RemoveItem("AttachData")
                  Call docData.RemoveItem("$FILE")
                  Call docData.Save(True, False)
                  
                  Set rtitem = New NotesRichTextItem(docData, "AttachData")
                  Set object = rtitem.EmbedObject(1454, "Microsoft Excel Worksheet", AttachFilePath(0))
                  Call docData.Save(True, False)
                  Call doc.Save(True, False)
                  Call uidoc.Save
                  Call uidoc.Close
            End If
      Else
            Msgbox "Cannot attach file!", 0+16, "Errors"
            Exit Sub
      End If