Dim newEintraegRow As TestDataSet.EintragRow 
        newEintraegeRow = TestDataSet.Eintrag.NewEintragRow()
        TestDataSet.Eintrag.Rows.Add(newEintragRow)
 
        Dim Test As DataRow
        Test = TestDataSet.Tables("Eintrag").NewRow()
        With Test
            .Item("Descript") = TextBox1.Text
            .Item("Uhrzeit") = Label14.Text
            .Item("Date") =  DateTime.Now 
            .Item("Auftrag") = False       'checkbox
 End With
       SchichtbuchDataSet.Tables("Eintraege").Rows.Add(0)