Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Set db = session.CurrentDatabase
Set collection = db.FTSearch( "FIELD Form CONTAINS test and FIELD Name CONTAINS IBM123",0)
dim Sum as long
Set doc = collection.GetFirstDocument
do while not doc is nothing
Sum=Sum+doc.Sum(0)
Set doc = collection.GetNextDocument