dim db as notesdatabase
dim view as notesview
dim doc as notesdocument
Set db= New notesdatabase("","Test.nsf")
Set view=db.getview("All")
Dim i As Integer
i=0
Set doc = view.GetFirstDocument
While Not ( doc Is Nothing )
i=i+doc.test(0)
Set doc=view.GetNextDocument(doc)
Wend
msgbox(i)