Subform field criteria based on the main form combobox

[mnaem02]

Hi If I select in main form supplier in combobox than products related to that supplier only be shown in subform.




this code i am using to put criteria in subform product combox but its not working

Private Sub SName_AfterUpdate()
Dim strsource As String


strsource = "SELECT Product " & _
"FROM Supplier " & _
"WHERE SupplierName = '" & Me.SName & "'"



Me.Order_Detail_subform1.Form!Product.RowSource = strsource


Me.Order_Detail_subform1.Form!Product = vbNullString


End Sub