better code for program exiting:
Code:
Dim frm As Form

For Each frm In Forms

Unload frm

Set frm = Nothing

Next

' Not really needed...

End