Access 2003

form called fGua has an unbound list box called lstComponent.

When the user selects from the listbox how can I make the form filter by
that selection

Private Sub lstComponent_AfterUpdate()
Select Case lstComponent.Value
Case "CT" 'CT
Me.Filter = "[Component] = [lstComponent].value "
Me.FilterOn = True
Me.Component.DefaultValue = """" & Me.lstComponent.Value & """"
Case "ST" 'ST
Me.Filter = "[Component] = [lstComponent].value "
Me.FilterOn = True
Me.Component.DefaultValue = """" & Me.lstComponent.Value & """"
End Select
--
deb