مشكل search

برنامه زير رو براي جستجو نوشتم:

Private Sub Command1_Click()
Adodc1.ConnectionString = strconn
If txtsearch = "" Then
MsgBox "please enter keyword!", vbExclamation, "attention"
Else
Adodc1.RecordSource = "select * from khazaneh where onvan like '%" & txtsearch.Text & "%'"
Adodc1.Refresh
Set datagride1.DataSource = Adodc1
End If
txtsearch.text = ""
end sub

امابرنامه خطاميده وقسمت adodc1.refreshرنگي ميشه
اگه ميشه مشكل اين برنامه يا اينكه يه برنامه واسه جستجو بهم بگيد

بجاي استفاده از adodc از adodb استفاده كنيد كار باهاش راحتتره ازadodc براي مشخص كردن پرووايدرهاي اتصال به بانكهاي اطلاعاتي كمك بگيريد. فكر كنم نمونه هم تو نت يا سايت بتونيد پيدا كنيد adodb رو سرچ كنيد.