adressbuch = "names.nsf"
ansicht = "People"
I = 0
Label11.Caption = sText1
'  
Set objNotes = GetObject("", "Notes.NotesSession")
If objNotes Is Nothing Then 
  Set objNotes = CreateObject("Notes.NotesSession")
End If 
Set LNdb = objNotes.GETDATABASE("", adressbuch)
Set LNview = LNdb.GETVIEW(ansicht)
Call LNview.Refresh
Set LNdoc = LNview.GETFIRSTDOCUMENT
ReDim lnarray(100, 50)
Do While Not LNdoc Is Nothing 
    Set Item = LNdoc.GETFIRSTITEM("lastname")
    Set item1 = LNdoc.GETFIRSTITEM("firstname")
    Set item2 = LNdoc.GETFIRSTITEM("mailaddress")
    Set item3 = LNdoc.GETFIRSTITEM("phonenumber")
    Set item4 = LNdoc.GETFIRSTITEM("officephonenumber")
    Set item5 = LNdoc.GETFIRSTITEM("HomeAddress")
    Set item6 = LNdoc.GETFIRSTITEM("Zip")
    Set item7 = LNdoc.GETFIRSTITEM("Country")
    Set item8 = LNdoc.GETFIRSTITEM("Location")
    'weitere Felder:  
    ' HomeAddress /BusinessAddress  
    ' Zip /OfficeZip  
    ' Country/OfficeCountry  
    ' Location  
    ' oder über die Feldeigenschaften...  
    '  
    array1 = Item.Values
    array2 = item1.Values
    array3 = item2.Values
    array4 = item3.Values
    array5 = item4.Values
    array6 = item5.Values
    array7 = item6.Values
    array8 = item7.Values
    array9 = item8.Values
    lnarray(I, 0) = CStr(array1(0))
    lnarray(I, 1) = CStr(array2(0))
    lnarray(I, 2) = CStr(array3(0))
    lnarray(I, 3) = CStr(array4(0))
    lnarray(I, 4) = CStr(array5(0))
    lnarray(I, 5) = CStr(array6(0))
    lnarray(I, 6) = CStr(array7(0))
    lnarray(I, 7) = CStr(array8(0))
    lnarray(I, 8) = CStr(array9(0))
    ComboBox1.AddItem CStr(array1(0))
    Set LNdoc = LNview.GETNEXTDOCUMENT(LNdoc)
    I = I + 1
    If I > 100 Then Exit Do 
Loop