Select Case ComboBox1.Text
                Case "Name"
                    Class1.F2.DV1.RowFilter = "Name LIKE '%" + Me.TextBox1.Text _
                      + "%'"
                    Class1.F2.DV1.Sort = "Name DESC"
                Case "Vorname"
                    Class1.F2.DV1.RowFilter = "Vorname LIKE '%" + _
                      Me.TextBox1.Text + "%'"
                    Class1.F2.DV1.Sort = "Vorname DESC"
                Case "bezahlt"
‘ hier soll der Boolean „bezahlt“ herausgefiltert werden 
            End Select

Schreibe von einem ab, dann ist das Plagiat - schreibe von zweien ab, dann ist das Forschung!