Private Sub btn_Urlaub_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btn_Urlaub.Click
 
        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _
          & _
     "Data " & _
       "Source=C:\Users\xx\Desktop\Urlaubsantrag\Urlaubsantrag\Urlaubs" & _
       "antrag.mdb")
        cn.Open()
        Dim urlaubstage As Double
        Dim urlaubstage2 As Double
        Dim überstunden As Double
        Dim NT As Double
        Dim gesamttage As Double
 
        urlaubstage = CDbl(lbl_Urlaubstage.Text)
        urlaubstage2 = CDbl(lbl_Urlaubstage2.Text)
        überstunden = CDbl(lbl_Überstunden.Text)
 
        gesamttage = urlaubstage + urlaubstage2 + überstunden
 
        NT = gesamttage
 
        If cb_Urlaubsanspruch.Text = "2007" Then
            If NT >= urlaubstage Then
                NT -= urlaubstage
                urlaubstage = 0
                Dim comm As New OleDb.OleDbCommand("UPDATE Urlaubstage SET " & _
                "UrlaubstageJahr2007='" & urlaubstage & "'", & _
                " WHERE Mitarbeiter='" & cb_Name.Text & "'", cn)
                comm.ExecuteNonQuery()
 
            End If
        End If
 
        MsgBox("Die " & txt_Tage.Text & " Urlaubstage wurden von ihren freien" & _
          "Urlaubstagen abgezogen!")
        btn_Urlaub.Visible = False
        Button1.Visible = True
    End Sub