خطا در هنگام جستجو

[romina2006]

دوستان سلام

من با كامپوننت Adodc1 به بانك اطلاعاتي اكسس متصل ميشم.براي جستجو كد زير رو نوشتم :


Private Sub Command1_Click()
Dim Find As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\" & "Dictionary.mdb"
Find = Trim(UCase(Convert(TxtInfo(0).Text)))
Adodc1.RecordSource = "SELECT * FROM Drug WHERE GenericName LIKE '*" & Find & "*'"
Adodc1.Refresh
MsgBox Adodc1.Recordset.RecordCount
End Sub


هنگام اجرا خطاي زير ميده :

Method Refresh of Object IAdodc Failed

ميشه بگيد براي چيه و بايد چي كار كرد؟

[skh1300]

دوستان سلام

من با كامپوننت Adodc1 به بانك اطلاعاتي اكسس متصل ميشم.براي جستجو كد زير رو نوشتم :


Private Sub Command1_Click()
Dim Find As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\" & "Dictionary.mdb"
Find = Trim(UCase(Convert(TxtInfo(0).Text)))
Adodc1.RecordSource = "SELECT * FROM Drug WHERE GenericName LIKE '*" & Find & "*'"
Adodc1.Refresh
MsgBox Adodc1.Recordset.RecordCount
End Sub


هنگام اجرا خطاي زير ميده :

Method Refresh of Object IAdodc Failed

ميشه بگيد براي چيه و بايد چي كار كرد؟
به جای ستاره از % استفاده کن