مشكله في البحث عن طريق Combo Box

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

Private Sub Combo1_Scroll()





datPrimaryRS.Recordset.Find "ProductName=" & Trim(Combo1.Text), 0, adSearchForward, 1

Text1.Text = datPrimaryRS.Recordset![ProductName]

Text2.Text = datPrimaryRS.Recordset![UnitPrice-sell]

Text3.Text = datPrimaryRS.Recordset![Quantity]

Text4.Text = datPrimaryRS.Recordset![UnitPrice-buy]

Text5.Text = datPrimaryRS.Recordset![Total]

DTPicker1.Value = datPrimaryRS.Recordset![Productdate]

DTPicker2.Value = datPrimaryRS.Recordset![Expiredate]

End Sub

الادة المستخدمة في الربط ADODC