سؤال في كريستال ريبورت

السلام عليكم ورحمة الله وبركاته

لو سمحتم أريد المساعدة في معرفة مكان الخطأ في الكود التالي...لأنني حاولت مرارا وتكرارا معرفة مكان الخطأ فلم أستطيع..

الكود يأخذ القيمة الموجود في الكمبو بكس ويبحث عنها في قاعدة البيانات ومن ثم يقوم بعرض القيم المماثلة في التقرير

القيمة هنا هي من نوع تكست أي كلمات

 Dim cond As String
 Dim result%

CrystalReport1.DataFiles(0) = App.Path & "\workshop.mdb"

CrystalReport1.ReportFileName = App.Path & "\main2.rpt"
cond = "{main1.salary} IN '" & cbosalary.Text & "' "
 CrystalReport1.SelectionFormula = cond
 CrystalReport1.Destination = crptToWindow
result = CrystalReport1.PrintReport

أرجو المساعدة قريبا جزاكم الله خيرا