Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim search As String
Set db = session.CurrentDatabase
Set collection = db.FTSearch( "white wine", 0 )
search = collection.Query
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dateTime As NotesDateTime
Dim collection As NotesDocumentCollection
Dim search As String
Set db = session.CurrentDatabase
Set dateTime = New NotesDateTime( "07/21/95" )
Set collection = db.Search _
( "@Contains(Subject;""Bicycle"")", dateTime, 2 )
search = collection.Query