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\Urlaubsantrag22\Urlaubsantrag\Urlaubs" & _
       "antrag.mdb")
        cn.Open()
 
 
 
        Dim urlaubstage As Double
        Dim urlaubstage2 As Double
        Dim NT As Double
 
        urlaubstage = CDbl(lbl_Urlaubstage.Text)
        urlaubstage2 = CDbl(lbl_Urlaubstage2.Text)
 
        NT = CDbl(txt_Tage.Text)
 
       'NT=so viel will ich haben
       'urlaubstage=soviel hab ich in 2007
       'urlaubstage2=soviel hab ich in 2008
 
        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()
        Else
            urlaubstage -= NT
            NT = 0
        End If
 
        If NT > 0 Then
            urlaubstage2 -= NT
            NT = 0
            Dim comm As New OleDb.OleDbCommand("UPDATE Urlaubstage SET " & _
            "UrlaubstageJahr2008='" & urlaubstage2 & "'" & "WHERE" & _
            "Mitarbeiter='" & cb_Name.Text & "'", cn)
            comm.ExecuteNonQuery()
        End If
 
      End Sub