如何使用VBA搜索Lotus文档

我需要从一个Lotus表单中获取3个特定字段,并将其放入一个静态访问表中,从中可以执行更多查询(其中2个字段构成主键,这样我就可以将第3个字段与其他字段连接起来)。在下面的伪代码中,我已经充实了一个函数来实现这一点,但是我无法找出细节(我想如果没有正式的培训,我永远不会理解Lotus是如何工作的)。请帮我完成这个程序?

Function GetFromLotusDocs() As String
    Dim NtS As New NotesSession
    Dim NtDb As New NotesDatabase
    Dim NtF As New NotesForm
    NtS.Initialize
    Set NtDb = NtS.GetDatabase("MyServer", "MyDB.nsf")
    Set NtF = NtDb.GetForm("MyForm")

    For each document in NtDB
        DoCmd.RunSQL _
        "INSERT INTO TmpTbl ( Fld1,Fld2,Fld3 ) SELECT " & _
        Fld1 & "," & Fld2 & "," & Fld3 & ";"    
    Next document
End Function