Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button4.Click
        If Not Saveable() Then Return
 
 
        Try
            Con.Open()
 
            Dim cmd As OleDbCommand = Con.CreateCommand
 
            Dim INSERTString As String = _
            "INSERT INTO " & _
                "Drucktabelle " & _
                    "(Mitarbeitername, UrlaubVom, UrlaubBis, Urlaubstage," & _
                    "Urlaubsanspruch1, Urlaubsanspruch2, AbbauUeberstunden," & _
                    "AnzahlUeberstunden, UeberstundenTage, UebrigUeberstunden," & _
                    "VertretungNotwendig, Vertreter) " & _
            "VALUES " & _
                "(@Mitarbeitername, @UrlaubVom, @UrlaubBis, @Urlaubstage," & _
                "@Urlaubsanspruch1, @Urlaubsanspruch2, @AbbauUeberstunden," & _
                "@AnzahlUeberstunden, @UeberstundenTage, @UebrigUeberstunden," & _
                "@VertretungNotwendig, @Vertreter)"
 
            cmd.CommandText = INSERTString
 
 
 
            cmd.Parameters.AddWithValue("@Mitarbeitername", cb_Name.Text)
 
            cmd.Parameters.AddWithValue("@UrlaubVom", DTP_Datum_Vom.Text)
            cmd.Parameters.AddWithValue("@UrlaubBis", DTP_Datum_Bis.Text)
 
            cmd.Parameters.AddWithValue("@Urlaubstage", txt_Tage.Text)
            cmd.Parameters.AddWithValue("@Urlaubsanspruch1", _
              lbl_Urlaubstage.Text)
            cmd.Parameters.AddWithValue("@Urlaubsanspruch2", _
            lbl_Urlaubstage2.Text)
            cmd.Parameters.AddWithValue("@AbbauUeberstunden", cb_Abbau.Text)
            cmd.Parameters.AddWithValue("@AnzahlUeberstunden", txt_Stunden.Text)
            cmd.Parameters.AddWithValue("@UeberstundenTage", _
              lbl_Überstunden.Text)
            cmd.Parameters.AddWithValue("@UebrigUeberstunden", _
            lbl_Resttage.Text)
            cmd.Parameters.AddWithValue("@VertretungNotwendig", _
            cb_Vertretung.Text)
            cmd.Parameters.AddWithValue("@Vertreter", cb_Vertreter.Text)
 
            cmd.ExecuteNonQuery()
            Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            Con.Close()
        End Try
        Form2.Show()
    End Sub