Datenbank aus notesuiworkspace entfernen?

[AndreasG]

Hallo!
wie kann ich denn mit LotusScript
am besten prüfen ob eine bestimmte Datenbank
im arbeitsbereich(notesuiworkspace) geöffnet ist,
und diesen dann entfernen? Das folgende script funzt
gut wenn die DB kundennotiz.nsf geschlossen ist.
ist sie aber bereits offen, gibts beim letzten befehl
die fehlermeldung, dass ein entsprechender Ordner oder Ansicht
nicht vorhanden sei, obwohl sie es ist, jedenfalls wenn ich
die DB einmal schliesse und wieder öffne...

Sub Click(Source As Button)   '
   Dim wks As New NotesUIworkspace   
   Call wks.EditDocument( False )'auf highlighted document zugreifen
   Set uidoc = wks.CurrentDocument
   Set doc = uidoc.Document
   Itemvalue = doc.GetItemValue("CompanyName")  'Name des     Zielordners bestimmen
  Ordnername = ItemValue(0)
  uidoc.close
  'versuch Ordner zu finden
  Dim cnotizDB As New Notesdatabase("rdl-lotus","kundennotiz.nsf")
  Set controllview = cnotizDB.getview(ordnername)
  ' wenn ordner noch nicht vorhanden, erstelle ihn:
  If controllview Is Nothing Then
    Set Folder = cnotizDB.GetView("AAAASchablone")
    Folder.CreateViewFromTemplate(Ordnername)
  End If
  Call wks.OpenDataBase("rdl-lotus","kundennotiz.nsf",Ordnername,"",False,True)
End Sub