مشکل با موتور Jet

[S.A]

من همونم که با Connectionstring مشکل داشت. خیلی تست کردم همه چی درست است. فقط مشکل اینجاست که موتور Jet را نمی شناسد.
درضمن پیغام خطای زیر را می دهد:
[Microsoft][ODBC Driver Manager] Data Source name not found adn no default driver specified.
البته این را بدانید که مسیر Database را می شناسد و موقع نصب هم در App.path قرار می دهد. اما مشکل برسر Providerاست و موقع نصب هم با فایل msado20.tlb مشکل دارد. لطفاً کمک کنید. من فقط امشب فرصت دارم.

[حامد مصافی]

بهتر بود ConnectionString را می نوشتی!!!

اگه مطمئنی درایور مورد نظر گم شده وی بی رو reinstal کن

[بابک زواری]

Mdac رو هم از سایت میکروسافت بگیر نصب کن ببین چی میشه ؟
ConnectionString رو هم بنویس

[S.A]

با تشکر از دوستان
آقای کد نویس لطفاً در مورد Mdac توضیح بدهید و یک لینک بگذارید تا آن را دانلود کنم.

[بابک زواری]

در سایت میکروسافت www.microsoft.com کلمه Mdac.exe رو جستجو کن
پیدا میکنی
با کمک این برنامه میتونی فایل ها و درایورهای مورد نیاز جهت دسترسی به بانک
های اطلاعاتی رو به سیستم اضافه کنی

[S.A]

کاربرطلایی متشکر اما بازهم نشد من کد قسمتی را که برای Connection نوشتم در اختیار شما قرار می دهم. البته توجه داشته باشید که من این اتصال را برای DED نوشتم.
Option Explicit
Private Const Provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Private Const DataSource1 = "Data Source="
Private Const DataSource2 = "\Laboratory.mdb"
Public LoginSucceeded As Boolean
Public Sub DEDConnect()
'
On Error GoTo localerr
'
With deLabVirus.cnnLabVirus
.Mode = adModeReadWrite
.CursorLocation = adUseClient
.ConnectionString = Provider & ";" & DataSource1 & App.Path & DataSource2
End With
'
With deLaboratory.conLaboratory
.Mode = adModeReadWrite
.CursorLocation = adUseClient
.ConnectionString = Provider & ";" & DataSource1 & App.Path & DataSource2
End With
'
Exit Sub
'
localerr:
MsgBox Err.Description, vbCritical, "Error:" & CStr(Err.number)
'
End Sub