البحث المتقدم

الكود ده

بالنسبه للادو

If RS.State = 1 Then RS.Close
aBeD = "select * from tab where s_name like '%" & textname.Text & "%'"
RS.Open aBeD, CN, 1, 3

'اما بالنسبه للداو

If RS.State = 1 Then RS.Close
aBeD = "select * from tab where s_name like '%" & textname.Text & "%'"
Set RS = CN.OpenRecordset(aBeD, 2)

اتمنى لكى التوفيق ان شاء الله

أشكرك جدا أخى الكريم فقد حللت لى المشكلة

جزاك الله خيرا