Holde connection åben – ADODB

Holde connection åben – ADODB

Jeg ønsker i VB6 at have flere connections til forskellige DB. (6 stk)
Jeg kan godt skabe connections, men når jeg vil bruge dem senere, så får jeg at vide, at Connectionen ikke genkendes.

Jeg ønsker at åbne alle 6 efterhånden som brugeren udpeger disse i commondialogs, og herefter blot bruge løs...

Eksempel:
Public Function connect(DBType As String, DB As String) As Boolean

Dim ConnDBVariables as ADODB.Connection
Dim connectionstring As String

connectionstring = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & DB
-hvor DB er filename fra en commondialogboks

Set ConnDBVariables = New ADODB.Connection
ConnDBVariables.Open connectionstring

...
...
end sub

Nu er connection åbnet, men når jeg senere i programmet forsøger at genbruge min connection i en anden sub, placeret i et separat modul, så genkender den ikke min connection, ConnDBVariables.

Jeg troede at min connection var åben indtil jeg selv lavede kaldet: ConnDBVariables.Close

Kort og godt: Hvordan holder jeg min connection åbnet, sådan at jeg kan kalde en almindelige execute uden først igen at skulle åbne connection’en?