Private Sub RadioButton1_Click(sender As Object, e As EventArgs) Handles _
        RadioButton1.Click, RadioButton2.Click, RadioButton3.Click, _
        RadioButton4.Click
        Dim _gefunden As String = String.Empty
        Dim _abgearbeitet As String = String.Empty
 
        Dim rad As RadioButton = CType(sender, RadioButton)
        Dim col_gefunden = LagerlisteDB.Lagerliste.INMAXIMOColumn.ColumnName
        Dim col_abgearbeitet = _
          LagerlisteDB.Lagerliste.abgearbeitetColumn.ColumnName
 
 
        Select Case rad.Name
 
            Case RadioButton1.Name
                _gefunden = String.Format("[{0}] = '{1}'", col_gefunden, True)
                BS_Lagerliste.Filter = _gefunden
 
            Case RadioButton2.Name
 
                _abgearbeitet = String.Format("[{0}] = '{1}'", _
                                  col_abgearbeitet, True) & " AND " & _
                                  String.Format("[{0}] = '{1}'", _
                                  col_gefunden, True)
 
                BS_Lagerliste.Filter = _abgearbeitet
            Case RadioButton3.Name
 
            Case RadioButton4.Name
 
        End Select
    End Sub

 _abgearbeitet = String.Format("[{0}] = '{1}'", _
                                  col_abgearbeitet, True) & " AND " & _
                                  String.Format("[{0}] = '{1}'", _
                                  col_gefunden, False)
 
                BS_Lagerliste.Filter = _abgearbeitet