Friend Sub Massenfilter()
        If EnableEvents = False Then Return
        If BsMassen Is Nothing Then Return
        If String.IsNullOrEmpty(MassenArt) Then Return
        If Not String.IsNullOrEmpty(aktOZ) Then
            BsMassen.Filter = vbNullString
            BsMassen.Filter = "OZ = '" & aktOZ & "' and Art LIKE '" & MassenArt _
              & "'"
        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