A mio avviso non hai chiuso le connessione al DB (si vede che qualche scelta che effettui con If non va a buon fine).
Ora non sò in quale punto del programma dovrai farlo, ma sicuramente nei Frm 2e3.
Ciao