List is not getting populated by the filter from Combo Box.

Hello ; I am using the After update event code below, but the list is not
getting populated. What am I doing wrong. Please help

Thanks


Private Sub Combo28_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs As Object
    Dim varItem As Variant
    Dim strSelected As String

 '  Set rs = Me.Recordset.Clone
  '  rs.FindFirst "[ProductName] = " & Str(Me![Combo28].Column(1))
  '  Me.Bookmark = rs.Bookmark
    'lstInstrIssue.RowSourceType = string

  ' strSelected = "Select * from Products where [ProductName] = " &
Me![Combo28].Column(1)
   strSelected = "Select * from Products (((where [ProductName] =
Me![Combo28].Column(1))))"

   Me!lstInstrIssue.RowSource = strSelected



    lstInstrIssue.Requery


End Sub