[مصمم هاوي]

بارك الله فيك أخي طه فهو كودٌ مختصرٌ ولكن يظهر خطأ في هذا الجزء من الكود كما هو موضحٌ في الصورة

كود :

If Rs.State = adStateOpen Then Rs.Close
Rs.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & "' AND [Clas] = '" & Trim(CombClass.Text) & "' AND tag=3 " & strSearh & " AND [Category] = '" & Trim(TextCategory.Text) & "'", DB, adOpenStatic, adLockOptimistic