Sub Click(Source As Button)
    
    Dim formula As String
    Dim session As New NotesSession
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Set uidoc = ws.CurrentDocument
    F$ =uidoc.FieldGetText("F")
    I$ = uidoc.FieldGetText("I")
    O$ = uidoc.FieldGetText("O")
    
    Dim connect As New LCConnection("oracle")
    
    connect.Server="айпишник:1521/база"
    connect.UserId="логин"
    connect.Password="пароль"
    'connect.Metadata ="таблица"
    
    Call connect.Connect
    
    Dim fldLst As New LCFieldList
    Dim FAM As LCField
    Dim Im As LCField
    Dim OTCH As LCField
    Dim D_ROGD As LCField
    Dim  NI As LCField
    formula={select  * from table (govd.get_IDN('}& F$ &{','}& I$ &{','}& O$ &{'))}
    If ( connect.Execute(formula, fldLst) = 0) Then
        Print "Ничё не нашлось (("
    End If
    
    Set NI = fldLst.Lookup ("N")
    Set FAM = fldLst.Lookup ("FAM")
    Set Im = fldLst.Lookup ("IM")
    Set OTCH = fldLst.Lookup ("OTC")
    Set D_ROGD = fldLst.Lookup ("D_R_")
    
    msg1=""
    
    While (connect.fetch(fldLst)>0)
        msg1= msg1 + NI.text(0) & ". ФИО:"  & FAM.text(0) &" "& Im.text(0) &" "& OTCH.text(0)  & "  Родился:"  &    D_ROGD.text(0) & Chr(13)
    Wend
    If msg1 ="" Then
        msg1 ="ничего не найдено"    
    End If
    Call uidoc.FieldSetText("Otvet",msg1)
    
End Sub

Option Public
Uselsx "*lsxlc

Sub Initialize
    
    Dim connect As New LCConnection("oracle")
    
    connect.Server="IP:1521/DB-name"
    connect.UserId="LOGIN"
    connect.Password="PASS"
    connect.Metadata ="таблица, "
    
    Call connect.Connect
    
    Dim fldLst As New LCFieldList  ' это список (массив) всех возвращаемых полей от оракла

    Dim  NI As LCField ' тут будут храниться все значения одного поля из fldLst
             Dim FAM As LCField
    Dim D_r As LCField
    
    
    If ( connect.Execute("select  * from table (табл.функция('Фамилия','Имя','Отчество))", fldLst) = 0) Then
        Print "Ничё не нашлось (("
    End If
    
    Set NI = fldLst.Lookup ("Numer")
    Set FAM = fldLst.Lookup ("FAM")
    Set D_r = fldLst.Lookup ("D_r ")
    
    msg1=""
    
    While (connect.fetch(fldLst)>0) ' проход по всем значениям ответа fldLst
        msg1= msg1 + NI.text(0) & " Фамилия:"  & FAM.text(0)    & "  Родился:"  &    D_r .text(0)
    Wend
    
    Print msg1
End Sub