modified within the last week. This code can easily be modified.
Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim coll As NotesDocumentCollection
Dim dtLastWeek As New NotesDateTime("Today")
Set db = s.CurrentDatabase
Set coll = db.Search(|Form = "Server"|, dtLastWeek, 0)