For Each Row As Data.DataRow In myDataTable.Rows
        Dim lvi As ListViewItem = ListView1.Items.Add(Row.Item(0).ToString())
        For Each Column As Data.DataColumn In myDataTable.Columns
            If Column.ColumnName = myDataTable.Columns(0).ColumnName Then _
              Continue For
            Dim val As String = If(Row.Item(Column) Is DBNull.Value, "[null]", _
            Row.Item(Column).ToString())
            lvi.SubItems.Add(val)
        Next
    Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist