Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
   Button1.Click
 
        Dim ID As EintraegeRow = SchichtbuchDataSet.Eintraege.NewEintraegeRow()
        With ID
            .Descript = TextBox1.Text
            .Uhrzeit = Label14.Text
            ._Date = DateTime.Now
            .Auftrag = False       'checkbox
            If Label7.Text = "Frühschicht" Then
                .ShiftID = 1
            End If
            If Label7.Text = "Spätschicht" Then
                .ShiftID = 2
            End If
            If Label7.Text = "Nachtschicht" Then
                .ShiftID = 3
            End If
            .Item("Apparatur") = Label2.Text
 
            If Label3.Text = "Allgemein Info" Then
                .Combo2ID = 1
            End If
            If Label3.Text = "Änderungseintrag" Then
                .Combo2ID = 2
            End If
            If Label3.Text = "Normalreparatur" Then
                .Combo2ID = 3
            End If
            If Label3.Text = "Anweisung Betriebsführung" Then
                .Combo2ID = 4
            End If
            If Label3.Text = "Arbeitssicherheit" Then
                .Combo2ID = 5
            End If
            If Label3.Text = "Umweltschutz" Then
                .Combo2ID = 6
            End If
            If Label3.Text = "Qualitätssicherung" Then
                .Combo2ID = 7
            End If
            If Label3.Text = "Betriebsversuch" Then
                .Combo2ID = 8
            End If
            .User = Label6.Text
            .ZName = Label4.Text
            .PNummer = Label1.Text
            .Auftrag = False
            .BereichTxt = Label9.Text
            .BereichNr = Label8.Text
        End With
        SchichtbuchDataSet.Eintraege.AddEintraegeRow(ID)
 
MsgBox("Daten wurden gespeichert")
 
 
        Me.Validate()
        Me.EintraegeBindingSource.EndEdit()
        Me.EintraegeTableAdapter.Update(Me.SchichtbuchDataSet.Eintraege)