Examples: AddDatabase method

This example adds a user-specified database to the workspace.

On Error Goto errorHandler
Dim workspace As New NotesUIWorkspace
Call workspace.AddDatabase( _
Inputbox("Name of server?", "Server"), _
Inputbox("Filename of database?", "Database"))
errorHandler:
Exit Sub