Formulare richtig schließen
Private Sub FormSchließen()
UnloadForms   'Formular schließen
End
End Sub
 
Private Sub UnloadForms()
  Dim F As Form
  For Each F In Forms
    Unload F
    Set F = Nothing
  Next F
End Sub

unload me