Открытое подключение к БД через ADO - VB

Формулировка задачи:

Имеется проект из множества форм, каждая из которых формирует запрос к базе данных. Каким образом создать открытое подключение к БД через ADO сразу после запуска проекта, которое будет использоваться разными формами и не будет разрываться до момента выхода из программы. Другими словами - зашел в программу -> создалось подключение - вышел из программы -> подключение разорвалось. Зачем мне это надо? Подключаюсь с запросом к Access, получаю ответ, жду 5 сек. Вижу ответ на экране. Но проблема в том, что запрос выполняется мгновенно, много времени уходит на соединение-разрыв с БД. Таких запросов по 300-400 надо делать. Жалко времени. Если есть реальные(рабочие) ответы я их жду. Всего доброго.

Решение задачи: «Открытое подключение к БД через ADO»

textual
                            Листинг программы 
                        
 
                        
                          
                    
' В главном модуле:
Public strCnn As String, mainCnn As ADODB.Connection
'
Private Sub Form_Load()
    Set mainCnn = New ADODB.Connection
    strCnn = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + appPath + baseName + _
            '.mdb;Persist Security Info=False'
    mainCnn.Open strCnn  '  <<< открывает соединение на всё время работы программы
' .....
' Для всех ADODC-контролов - используем одно и то же подключение:
    Set adodc1.SourceConnection = mainCnn
    Set adodc2.SourceConnection = mainCnn
'   ...
    Set adodcN.SourceConnection = mainCnn
' .....
End Sub
'
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    mainCnn.Close
    Set mainCnn = Nothing
End Sub