Friend Sub Massenfilter()
        If EnableEvents = False Then Return
        If Not String.IsNullOrEmpty(OZTextBox.Text) Then
            If BsMassen Is Nothing Then Return
            BsMassen.Filter = vbNullString
            BsMassen.Filter = "OZ = '" & aktOZ & "' and Art LIKE '" & MassenArt _
              & "'"
            'BsMassen.Filter = "OZ = '02.06'" '& aktOZ & "'"
        Else
            BsMassen.Filter = "Art LIKE '" & MassenArt & "'"
        End If
        If BsMassen.Count > 0 Then
            'Debug.Print(DirectCast(BsMassen.Item(0), DataRowView)( 
            ' "OZ").ToString)
            BsMassen.Sort = "Adresse"
        End If
    End Sub

Danke für die Hilfe

Gruß Christian