Private Function GetColumnHeader( Width as Integer, TextAlign as ... ) as _
  ColumnHeader
  Dim ch As New ColumnHeader() 
  ch.Width = Width
  ch.TextAlign = TextAlign
  ch.AutoResize( ResizeStyle) 
  ch.Text = Text
  return ch
End Function
 
.
.
.
 
Dim connectionString As String = "......." 
 
Dim dt as new DataTable()
 
Dim Abfrage As String 
Abfrage = "SELECT * FROM PERSON, ROLLE, TEAMDATA, TEAM " 
Abfrage &= "WHERE PERSON.PERID = ROLLE.PERID AND PERSON.PERID = TEAMDATA.PERSID" & _
  "AND TEAMDATA.TEAMID = TEAM.TEAMID" 
 
Dim da as new SqlDataAdapter( Abfrage, ConnectionString )
 
da.Fill( dt )
 
 
sampleListView.Clear() 
sampleListView.BeginUpdate() 
 
sampleListView.Columns.Add("Personal ID", 70, HorizontalAlignment.Left) 
 
Dim lvvorname As ColumnHeader = GetColumnHeader(...)
sampleListView.Columns.Add(lvvorname) 
 
Dim lvachname As ColumnHeader = GetColumnHeader(...)
sampleListView.Columns.Add(lvachname) 
 
Dim lvrolle As ColumnHeader = GetColumnHeader(...)
sampleListView.Columns.Add(lvrolle) 
 
Dim lvteamname As ColumnHeader = GetColumnHeader(...)
sampleListView.Columns.Add(lvteamname) 
 
Dim lvteamid As ColumnHeader = GetColumnHeader(...)
sampleListView.Columns.Add(lvteamid) 
 
dt.Sort = "SpaltenName ASC"
 
for each DataRow dr in dt.Rows
 
  Dim li As New ListViewItem 
  li.Text = dr("PERID") 
  li.SubItems.Add(dr("VNAME").ToString.Trim) 
  li.SubItems.Add(dr("NNAME").ToString.Trim) 
  li.SubItems.Add(dr("ROLLE")) 
  li.SubItems.Add(dr("TEAMNAME").ToString.Trim) 
  li.SubItems.Add(dr("TEAMID")) 
  sampleListView.Items.Add(li) 
Next 
 
sampleListView.EndUpdate() 
sampleListView.View = View.Details