منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

انا كتبت كود للبحث بـ ado طيب المطلوب التقرير ان يحمل نتائج البحث هذا هو الكود
If RS.State = 1 Then RS.Close
RS.Open "select * from itemsvo where invno ='" & Trim(Text3.Text) & "'", DB, adOpenStatic, adLockPessimistic

كيف اجعل التقرير يحمل نتائج البحث انا كتب
Set DataReport1.DataSource = RS
DataReport1.PrintReport

لاكن خطاء
ارجو الافادة