Public Function PersonenListeLaden()
      Dim dt As DataTable, dr As DataRow, ds As DataSet
      Dim SQL As String = "SELECT * FROM tab_name WHERE Unternehmen_ID = " & _
        _SelectedFirmenID
      ds = MakeDataSet(SQL)
      Me.LVansprechpartner.Items.Clear()
      Me.LVKontakteNummern.Items.Clear()
      For Each dt In ds.Tables
         For Each dr In dt.Rows
            If dr("gueltig") = True Or _ZeigeAllePersonen = True Then
               Dim ITEM As New ListViewItem
               ITEM.Tag = dr("id")
               ITEM.Text = dr("Anrede").ToString
               With ITEM.SubItems
                  .Add(dr("Titel").ToString)
                  .Add(dr("Name").ToString)
                  .Add(dr("Vorname").ToString)
                  .Add(dr("Abteilung").ToString)
                  .Add(dr("Email").ToString)
                  .Add(dr("Position").ToString)
                  .Add(dr("GeaendertAm").ToString)
                  .Add(dr("GeaendertDurch_id").ToString)
               End With
               If dr("gueltig") = False Then
                  ITEM.ForeColor = Color.Red
               End If
               ITEM.UseItemStyleForSubItems = True
               Me.LVansprechpartner.Items.Add(ITEM)
            End If
         Next
      Next
End Function

MfG Radon