myAdapter.Fill(myDataTable)
 
        'Überschriften
        For Each col As DataColumn In myDataTable.Columns
            Listview.Columns.Add(CStr(col.Caption), 200)
        Next
 
        'Daten
        For Each Row As Data.DataRow In myDataTable.Rows
            Listview.Items.Add("")
 
            For Each Column As Data.DataColumn In myDataTable.Columns
                If Listview.Items(Listview.Items.Count - 1).SubItems.Count = 1 _
                  Then
                    Listview.Items(Listview.Items.Count - 1).SubItems(0).Text = _
                    CStr(Row.Item(Column))
                Else
                    Listview.Items(Listview.Items.Count - 1).SubItems.Add(CStr( _
                      Row.Item(Column)))
                End If
            Next
        Next

SELECT Zeitpunkt, Eintrag FROM logbuch"

Gru? MTAS