While objDr.Read() 
  lvItem = New ListViewItem(dbValue(objDr.Item("DSIDSchüler")))
  With lvItem.SubItems
    .Add(dbValue(objDr.Item("Vorname")))
    .Add(dbValue(objDr.Item("Nachname")))
    .Add(dbValue(objDr.Item("Strasse")))
    .Add(dbValue(objDr.Item("Postleitzahl")))
    .Add(dbValue(objDr.Item("Stadt")))
    .Add(dbValue(objDr.Item("Stadtteil")))
  End With
  Call frmSchülerListe.ListView1.Items.Add(lvItem))
End While

Public Function dbValue(ByVal oValue As Object) As String
  If IsDBNull(oValue) Then Return ""
  Return oValue.ToString
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de