Create a button in a memo and paste in the following code:Sub Click(Source As Button)
Dim dbdir As New NotesDbDirectory("TSNet03/Teamwork")
Dim db As NotesDatabase
Set db = dbdir.GetFirstDatabase(DATABASE)
While Not(db Is Nothing)
Print "Processing " + db.FileName
Call db.Open("", "")
If db.IsOpen And Isarray(db.Agents) Then
Forall ag1 In db.Agents
If ag1.Name = "Counter" Then
Msgbox "Found agent Counter in " + db.FileName
End If
End Forall
End If
Set db = dbdir.GetNextDatabase
Wend