مشکل توی کد نویسی

[mamali1377]

آقا جان من کلا با این ارتباط بانک اکسز با ویژوال مشکل دارم به شدت!!!!
این کدی که نوشتم الان کار کرد برای بار اول اما بار دوم که خواستم بخشه اضافه کردن رو کلیک کنم(کد توی فرم لود نوشته شده) اول این ارور رو داد
"data type mismatch in criteria expression."
بعد هم این رارین تایم ارور رو
:'(run-time error '-2147217913 (80040e07
method 'refresh' of object 'adodc 1' failed
الان من چی کار کنم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟


کد نویسیم این بوده

Private Sub Form_Load()
_ & Adodc1.ConnectionString = "Provider=microsoft.Jet.OLEDB.4.0;"
"Data Source=" & App.Path & "\bank.mdb;Jet OLEDB:Database Password = 16137716;"
If Add_or_Edit1 = True Then
Adodc1.RecordSource = "SELECT * FROM Library WHERE ID =" & ID1
Adodc1.Refresh
Else
Adodc1.RecordSource = "SELECT *FROM Library WHERE ID=0"
Adodc1.Refresh
Adodc1.Recordset.AddNew
End If


End Sub

[mamali1377]

آیا کسی نیست که پاسخگوی ما باشد؟:متعجب::متعجب:

[ایلیا آخوندزاده]

کلا کدت اشتباه هس راه اصولیش این نیست که.