Возникла проблека, надеюсь на ВАС ....
Есть неки проет проект, в нем устанавливается связь с некоторой базой MDB, вот код:
- Код: Выделить всё
Dim WithEvents adoPrimaryRS As Recordset
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\BAZA.MDB"
Set adoPrimaryRS = New Recordset
strSQL = "SELECT * FROM klienti "
adoPrimaryRS.Open strSQL, db, adOpenStatic, adLockOptimistic
db.Close
Всё отлично работает, но после создания дистрибутива (Wise Installation System) и последующей установки на машину клиетна выползает ругательное окошкотакого вида: в заголовке - ADODC1, в теле сообщения - не удается найти указанного поставщика, возможно он утановлен неправильно.
Хотя после установки на машину клиента VB6 и последующего удаления VB6 программа начинает работать нормально. Что это может быть и как поправить ? пробовал несколько программ создающих дистрибутивы - нифига не помогает.
Заранее спасибо.
