Examples: CurrentDatabase property (NotesUIWorkspace - LotusScript)
This example sets the current database property and opens the By Category view.
Dim workspace As New NotesUIWorkspace
Dim db As NotesUIDatabase
Set db = workspace.CurrentDatabase
Call db.OpenView("By Category")