خطای مربوط به بانک اطلاعاتی در برنامه

[sajad_boj70]

با سلام خدمت همه دوستان
من یک برنامه نوشتم(این برنامه شامل ثبت اطلاعات و جستجوی اطلاعاته) که تو سیستم خودم درست کار میکنه
اما وقتی تو یک سیستم دیگه اجرا میکنم در قسمت جستجوی اطلاعاتم یک خطا میگیره که مربوط به بانک اطلاعاتیمه
البته آدرس بانکم رو درست تعریف کردم و حتی در قسمت اول برنامه که اطلاعات رو تو بانک ثبت میکنه اشکالی از بانکم نمیگیره اما نمیدونم اینجا چرا گیر میده.
خطایی که میگیره رو براتون ضمیمه میکنم.
لطفا کمکم کنید
63952

ضمنا کد جستجوی اطلاعاتم هم به این صورته که در text change نوشتم
(که به عنوان نمونه در اینجا جستجوی مربوط به قسمت نام رو میزارم)
Set DataGrid1.DataSource = Adodc1

With Adodc1

.CursorType = adOpenStatic
.LockType = adLockReadOnly

.ConnectionString = "DSN=MS Access Database;DBQ=" & App.Path & "\bank.mdb;UID=admin"

.CommandType = adCmdText

.RecordSource = "SELECT * FROM fard WHERE name like '" & Text16.Text & "%'"


.Refresh

End With

[mbf5923]

اگه بانكت آدرسش رو مشكل نداري و بهش مطمئني برنامه به درايور بانكت ايراد ميگيره
از adodc استفاده كن شايد درست بشه:
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\bank.mdb"
Adodc1.RecordSource = "SELECT * FROM fard where name like'" & text16.text & "'"

[sajad_boj70]

سلام دوست عزیز.
ممنون از پاسخت.
اما اگه توجه کنی من هم از همین کد استفاده کردم دیگه