Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If Len(Trim(Me.ComboBox1.Text)) > 0 And Trim(Me.ComboBox1.Text) <> "All" Then ' If Trim(Me.ComboBox1.Text) <> "All" Then Me.DsINVAssetsDepreciationLookupBindingSource.Filter = "DepartmentAbbreviation = '" + Me.ComboBox1.Text + "'" 'Me.INV_AssetsDepreciation_LookupTableAdapter.Fill(DsINV_AssetsDepreciation_Lookup.INV_AssetsDepreciation_Lookup) Else 'Me.DsINVAssetsDepreciationLookupBindingSource.Filter = "" Me.DsINVAssetsDepreciationLookupBindingSource.RemoveFilter() End If End Sub