databaseforbindelse - åben eller lukket?

Jeg benytter nedenstående funktion til at åbne/lukke min database (virker fint).

Jeg vil gerne ændre det, så connectSql2 forbliver åbent så længe programmet kører - og ved application.exit kontrolleres så for om der er en forbindelse der evt. lukkes.
Hvordan gør man det (er klar over jeg bare kan åbne forbindelsen i 'main', men hvordan bruger jeg den på tværs af mange windows forms?

Min nuværende funktion:
Public Function openCloseSql2(ByVal openClose As Boolean, ByVal server As String, ByVal database As String) As Boolean

        If (openClose = True) Then
            connectSql2 = New ADODB.Connection

            connectSql2.ConnectionString = "Provider=sqloledb;Data Source=" & server & ";Initial Catalog=" & database & ";Integrated Security=SSPI" 'User Id=xxxx;Password=yyy; ' medsendes/bruges ikke
            connectSql2.ConnectionTimeout = 0
            connectSql2.Open()
            openCloseSql2 = True
        Else

            connectSql2.Close()
            connectSql2 = Nothing
            openCloseSql2 = false

        End If

End Function