As noted in the Open Connection topic, I declare my connection variables in a .bas module and create a connection object in a sub procedure within that module. In the Main Form the connection is opened and can be used by all subsequent forms.
As I exit each subsequent form, I simply close my Recordset and Command object, leaving the connection remaining open:
Private Sub cmdExit_Click()Unload Me
rs.Close
Set rs = Nothing
Set mdkcmd = Nothing
Set myobj = Nothing
End Sub
When these forms are exited/closed, the focus is returned to the Main Form. When the Main Form is exited/closed, the Connection is then terminated:
Private Sub cmdExit_Click()Unload Me
conn.Close
Set conn = Nothing
Set mdkcmd = Nothing
Set myobj = Nothing
End Sub