Dim f As String = IIF(bs.Filter Is Nothing, String.Empty, bs.Filter)

        Dim plz1 As String = "PLZ > 9999 And PLZ < 20000" 
        Dim plz9 As String = "PLZ > 89999 And PLZ < 99999" 
 
        If Not String.IsNullOrEmpty(bs.Filter) Then  
            plz1 = "(" & bs.Filter & ") AND " & plz1
            plz9 = "(" & bs.Filter & ") AND " & plz9
        End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist