I have a code in PostOpen database that will open a new db then close the db that opened it. Problem is I cannot close the initial db.
Sub Postopen(Source As Notesuidatabase)
Dim workspace As New NotesUIWorkspace
Call workspace.OpenDatabase ( "ServerLive", "UsedDB.nsf" )