LISTING 2: Event Procedures for Managing Filtering with the ServerFilter Property

Private Sub cboFilterState_AfterUpdate()
Me.ServerFilter = "state = '" & Me.cboFilterState.Value & "'"
Me.Refresh
End Sub

Private Sub cmdShowAll_Click()
Me.ServerFilter = ""
Me.Refresh
End Sub