Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button4.Click
 
        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _
                & _
           "Data " & _
             "Source=C:\Users\xx\Desktop\UrlaubsantragVersion2\Urlaubsantrag\U" & _
             "laubs" & _
             "antrag.mdb")
        cn.Open()
        'Delete (Löschen der Drucktabelle)
        Dim comm As New OleDb.OleDbCommand("DELETE * FROM Drucktabelle", cn)
        comm.ExecuteNonQuery()
        cn.Close()
 
        cn.Open()
        'InsertInto Befehl
        Dim INSERTString As String = _
        "INSERT INTO " & _
           "Drucktabelle " & _
              "(Mitarbeitername, UrlaubVom, UrlaubBis, Urlaubstage," & _
              "Urlaubsanspruch1, Urlaubsanspruch2, AbbauUeberstunden," & _
              "AnzahlUeberstunden, UeberstundenTage, UebrigUeberstunden," & _
              "VertretungNotwendig, Vertreter) " & _
       "VALUES " & _
          "(" & cb_Name.Text & " , " & DTP_Datum_Vom.Value & " , " & _
          DTP_Datum_Bis.Value & " , " & txt_Tage.Text & " , " & _
          lbl_Urlaubstage.Text & " , " & lbl_Urlaubstage2.Text & " , " & _
          cb_Abbau.Text & " , " & txt_Stunden.Text & " , " & _
          lbl_Überstunden.Text & " , " & lbl_Resttage.Text & " , " & _
          cb_Vertretung.Text & ", " & cb_Vertreter.Text & ")"
        comm.ExecuteNonQuery()
        cn.Close()
        Form2.Show()
end sub