Как повысить скорость обращения к базе данных .mdb? - VB

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

Создал базу данных с помощью MSAccess и подключился к ней из VB6 через adodc используя для этого .dsn. Запускаю прогу на выполнение и выжу что подключение занимает по времени около 6 секунд - умрёш ждавши! Так вот, почему так долго, как повысить скорость подключения? Зараннее благодарен.

Решение задачи: «Как повысить скорость обращения к базе данных .mdb?»

textual
                            Листинг программы 
                        

                            Dim myRst As ADODB.Recordset
Dim mainCnn As ADODB.Connection
Dim strCnn As String
Dim baseName As String ' имя MDB-файла
Dim strSQL As String   ' запрос на выборку из baseName в myRst
'
Set mainCnn = New ADODB.Connection
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + baseName + _
            ".mdb;Persist Security Info=False"
mainCnn.Open strCnn  '  <<< открывает соединение на всё время работы программы
Set myRst = New ADODB.Recordset
myRst.CacheSize = 50
myRst.CursorLocation = adUseClient
myRst.CursorType = adOpenStatic
myRst.LockType = adLockOptimistic
strSQL = "Select * FROM Table1"
myRst.Open strSQL, mainCnn
'
' // работа с выборкой myRst //
'
myRst.Close
Set myRst = Nothing
mainCnn.Close          ' если она не нужна для других выборок
Set mainCnn = Nothing  ' если она не нужна для других выборок
                        