Chiusura connessioni ai database

[Ranch]

Buongiorno a tutti.
Volevo sottoporvi un problema che non so proprio come risolvere:
E' mia abitudine controllare che tutte le connessioni ai database vengano chiuse correttamente prima di uscire dagli applicativi.
Il mio problema è che se chiudo l'applicazione utilizzando la X in alto a destra della finestra, il programma non esegue il codice relativo alla chiusura degli archivi.
Quale evento è necessario usare per far si che da qualsiasi parte chiudo l'applicativo mi viene eseguito il codice in oggetto?????
Grazie a tutti
Mik

[anatroccolo]

Quando viene chiuso un Form utilizzando la X si genera l'evento Unload_Form dove puoi controllare lo stato delle connessioni ed eventualmente chiuderle:

If Cn.State = adStateOpen Then
    Cn.Close
End if

Inoltre l'evento Unload_Form ha un parametro "Cancel" che se impostato a "1" ti permette di non portare a termine l'evento:

If Cn.State = adStateOpen Then
    Cancel = 1
End if

Ciao

[Ranch]

Grazie
Mik