For Each s As Class1 In Daten
            Dim reihe As DataRow
            reihe = DataSet1.Tables("Table1").NewRow
 
            reihe("Datum") = s.Datum
            reihe("Seite") = s.EisbärSeite
            reihe("Eintragtyp") = s.Eintragtyp
            reihe("Komponententyp") = s.Komponententyp
            reihe("Komponente") = s.Komponente
            reihe("LogEintrag") = s.LogEintrag
            reihe("Beschreibung") = s.Beschreibung
            DataSet1.Tables("Table1").Rows.Add(reihe)
            reihe = Nothing
        Next