Ошибка при коннекте через ADODB - VB

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

При коннекте через ADODB.Connection и DNS файл связь с базой устанавливается нормально, но при просмотре параметров дескриптора в Watches-окне, в поле Errors появляется ошибка:
Description : "[Microsoft][Диспетчер драйверов ODBC] Сбой SQLSetConnectAttr драйвера"
Что за хрень и с чем ее можно пережевать?
ConnectionString : "Provider=MSDASQL.1;Connect Timeout=15;Extended Properties="DBQ=db1.mdb;DefaultDir=D:\;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access"

Решение задачи: «Ошибка при коннекте через ADODB»

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

                            <font color="blue">Dim</font> file_mdb <font color="blue">As</font> <font color="blue">String</font>:  file_mdb = App.Path & <font color="teal">"\db1.mdb"</font>
<font color="blue">Dim</font> tablica1 <font color="blue">As</font> <font color="blue">String</font>:  tablica1 = <font color="teal">"Таблица1"</font>
<font color="blue">Dim</font> db1 <font color="blue">As</font> ADODB.Connection:   <font color="blue">Set</font> db1 = <font color="blue">New</font> ADODB.Connection
<font color="blue">Dim</font> tb1 <font color="blue">As</font> ADODB.Recordset:    <font color="blue">Set</font> tb1 = <font color="blue">New</font> ADODB.Recordset
 
db1.Provider = <font color="teal">"Microsoft.Jet.OLEDB.4.0"</font>
db1.<font color="blue">Open</font> file_mdb, <font color="teal">"Admin"</font>
tb1.<font color="blue">Open</font> tablica1, db1, adOpenDynamic, adLockOptimistic
                        