Lotus - Datenbank auslesen klappt nicht

Sub adressen_notes()
Dim session As Object
Dim db As Object
Dim view As Object
Dim doc As Object
Dim feld1 As Object
Dim feld2 As Object
Dim Zeile As Integer
'Positionieren auf DB
Set session = CreateObject("Notes.Notessession")
Set db = session.getdatabase("MUC.ALLIANZ/Allianz-AD", "DirCat_AD.nsf")
'Positionieren auf Ansicht und erstes Dokument
Set view = db.getview("Nach Kategorie")
Set doc = view.GetFirstDocument()
Zeile = 1
While Not (doc Is Nothing)
Set feld1 = doc.getfirstitem("Subject")
Worksheets("Tabelle1").Cells(Zeile, 1).Value = feld1.Text
Set feld1 = Nothing
Set doc = view.getnextdocument(doc)
'i = i + 1
Zeile = Zeile + 1
Wend
End Sub