Доброго времени суток.

Нужна помощь спецов.
Я не специалист ни по Access, ни по VB. Но мне необходимо оперативно подправить код, а спеца, как на зло, нет. Вот решил к Вам обратиться.

кусок кода:

Private Sub Form_Load()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=База данных MS Access;Initial Catalog=C:\Program Files\SAMO-Soft\Agency\DB\tzt.tzt"
cnn.Open <<<=== !!!Стопится тут!!!
Dim OldRs As ADODB.Recordset
Dim SQL As String

Выдает ошибку:

Run-time error '-2147467259 (80004005)'

[Microsoft][Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, используемый по умолчанию

-------------------------------------

Как я понимаю, то необходимо что-то настроить. Вот вопрос - что именно??? Заранее прошу отнестись с пониманием к моему не знанию вопроса...

VB 6.0, Access 2003
Если будет необходима более подробная информация по каким-то пунктам - с легкостью предоставлю. Просто не знаю, что еще может понадобиться.


Жизнь моно было бы упростить, если были бы ее исходники...

Забыл сказать, что файл существует и рабочий аксессовский...


И, заранее спасибо...
Жизнь моно было бы упростить, если были бы ее исходники...

Огромное спасибо.... Вроде как заработало.