مساعدة في الفيجوال بيسيك دوت نت

أخواني الاعزاء

.. أنا عضو جديد في المنتدى وأطلب مساعدتكم في موضوع صغير ومهم جدا ولكم الشكر الجزيل.

عندي مشكله في استخدام الكريستال ريبورت داخل الفيجوال بيسيك دوت نت...عندما أحاول استدعاء تقرير يظهر التقرير محتويا كل البيانات الموجوده في الحقل المطلوب... علما بأنني أحتاج لعرض بيانات ضمن نطاق معين .. مثلا من جدول الاسماء اريد عرض االبيانات المتعلقة باسم معين...لقد قمت باستخدام الطريفة التالية لكن دون جدوى

...... أرجو منكم مساعدتي في أي شيء يتعلق في هذا الموضوع......ولكم كل الاحترام و التقدير

Dim con As New OleDb.OleDbConnection()

Dim sql As String

sql = "select item,qu from inv where item Like 'sss'"

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\data\stock.mdb;Persist Security Info=False"

Dim myds As New DataSet()

myds.Clear()

con.Open()

Dim Adapter As New OleDb.OleDbDataAdapter(sql, con)

Adapter.Fill(myds, "inv")

Dim rpt As New cr11()

rpt.SetDataSource(myds)

rpt.RecordSelectionFormula = sql

crv.Zoom(20%)

crv.ReportSource = rpt

crv.RefreshReport()

ListBox1.Items.Add(myds)

con.Close()