Private Sub BrowseDialog1_Searching(ByVal sender As Object, ByVal e As BrowseDialogSearchingEventArgs) Handles BrowseDialog1.Searching        '-- Establish Locals        Dim where As WhereStatement        Dim myFruit As New System.Collections.ArrayList()        '-- Determine which values will be included as part of the "IN" tag        If _AllowApples Then myFruit.Add(CType(Fruit.Apples, Integer))        If _AllowOranges Then myFruit.Add(CType(Fruit.Oranges, Integer))        If _AllowPears Then myFruit.Add(CType(Fruit.Pears, Integer))        '-- Create the where statement.  In this example, we are going to have the test perform        '   an IN which will allow us to perform a query that includes all of the values in the myFruit        '   array.  my_Fruit is the field in the database.  So this where clause would look like this        '   in T-SQL  "SELECT ... WHERE my_Fruit IN (0,1,2) ..."        where = New WhereStatement(New String() {"my_Fruit"}, myFruit, WhereStatementTypeOptions.In)        '-- Add the where statement to the collection        e.RawWhereStatementsCollection.Add(where)End Sub