Ошибка при заполнении Dataset

[olplis]

Вот такая проблема: при выполнении программа выдает ошибку "Объект 'expr1002' не найден ядром базы данных Microsoft Jet. Проверьте существование объекта и правильность имени и пути."
Ошибка возникает при заполнении DataSet через DataAdapter, причем независимо от того заполняется ли через SqlDataAdapter, OleDbDataAdapter или DbDataAdapter.
Сообщение вылазит при работе с любой бд.

Dim strConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=D:\TEMP\BD.MDB"
Dim objConnection1 As New OleDb.OleDbConnection
objConnection1.ConnectionString = strConnect
objConnection1.Open()
Dim ds As New DataSet
Dim dc As New OleDb.OleDbCommand
dc.Connection = objConnection1
dc.CommandText = "select * from tablelichdan"
Dim da As New OleDb.OleDbDataAdapter
da.SelectCommand = dc
da.Fill(ds) ' Ошибка возникает здекь
Dg1.DataSource = ds.Tables(0)
objConnection1.Close()

Этот же код на другой машине прекрасно работает.
Что делать?

 

[Electro]

Попробуй использовать ServerEx-r от VS (подключись там к источнику).
Вероятнее всего что-то с твои провайдером Microsoft.Jet.OLEDB.4.0,
скорее всего его просто нет.

 

[olplis]

Через ServerExplorer такая же бадяга вылезает. А если действительно провайда Microsoft.Jet.OLEDB.4.0 у меня нет, то где он лежит и можно ли его взять на другой машине, где все работает.

Заранее спасибо.

 

[Electro]

Пробей реестр у меня так:
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Jet 4.0]
"PageTimeout"=dword:00001388
"LockRetry"=dword:00000014
"MaxBufferSize"=dword:00000000
"Threads"=dword:00000003
"ExclusiveAsyncDelay"=dword:000007d0
"SharedAsyncDelay"=dword:00000032
"FlushTransactionTimeout"=dword:000001f4
"MaxLocksPerFile"=dword:0000251c
"LockDelay"=dword:00000064
"RecycleLVs"=dword:00000000
"PagesLockedToTableLock"=dword:00000000
"UserCommitSync"="yes"
"ImplicitCommitSync"="no"

Я конечно могу ошибатся, но проинстал-ть(переинст-ть) MDAC 2.8 не повредило бы делу