For Each dt In ds.Tables
    For Each dr In dt.Rows
      If dr("gueltig") = True Or _ZeigeAllePersonen = True Then
          'das "Haupt-Item"
          Dim ITEM As New ListViewItem
          ITEM.Tag = dr("id")
 
          'die SubItems:
          Dim Name As New ListViewItem.ListViewSubItem(ITEM, dr( _
            "Name").ToString)
          Dim Vorname As New ListViewItem.ListViewSubItem(ITEM, dr( _
          "Vorname").ToString)
 
          ITEM.Text = dr("Anrede").ToString
          With ITEM.SubItems
            .Add(Name)
            .Add(Vorname)
          End With
 
          'ggf. Schriftfarbe auf Rot setzen
          If dr("gueltig") = False Then
             ITEM.ForeColor = Color.Red
          End If
 
          'Item hinzufügen
          Me.LVansprechpartner.Items.Add(ITEM)
      End If
    Next
Next

MfG Radon