Private Sub btn_Urlaub_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles btn_Urlaub.Click
 
        If lbl_Urlaubstage.Text = "0" And lbl_Urlaubstage2.Text = "0" Then
            MsgBox("Die " & txt_Tage.Text & " Urlaubstag/e wurden von Ihren" & _
              "Überstunden " & _
                        "abgezogen!  (-" & (CDbl(txt_Tage.Text) * 8) & "" & _
                        "Stunden)")
            btn_Urlaub.Visible = False
            Button1.Visible = True
            btn_Zurück.Visible = True
            Exit Sub
        End If
 
        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _
          & _
     "Data " & _
       "Source=C:\Users\xx\Desktop\UrlaubsantragVersion2\Urlaubsantrag\Urlaubs" _
       & _
       "antrag.mdb")
        cn.Open()
 
 
        Dim urlaubstage As Double
        Dim urlaubstage2 As Double
        Dim urlaubstagegesamt As Double
        Dim ueberstunden As Double
        Dim abziehung As Double
        Dim NT As Double
 
        urlaubstage = CDbl(lbl_Urlaubstage.Text)
        urlaubstage2 = CDbl(lbl_Urlaubstage2.Text)
        ueberstunden = CDbl(lbl_Überstunden.Text)
 
 
        NT = CDbl(txt_Tage.Text)
 
        'NT=so viel will ich haben
        'urlaubstage= soviel hab ich im Jahr 2007 Anspruch
 
        urlaubstagegesamt = urlaubstage + urlaubstage2
        abziehung = NT - urlaubstage - urlaubstage2
 
        If urlaubstagegesamt < NT Then
            If urlaubstage > 0 Then
                If NT >= urlaubstage Then
                    NT -= urlaubstage
                    urlaubstage = 0
                Else
                    urlaubstage -= NT
                    NT = 0
                End If
                Dim comm As New OleDb.OleDbCommand("UPDATE Urlaubstage SET " & _
                    "UrlaubstageJahr2007='" & urlaubstage & "'" & "WHERE " & _
                    "Mitarbeiter='" _
                    & cb_Name.Text & "'", cn)
                comm.ExecuteNonQuery()
 
            End If
 
            If NT > 0 Then
                urlaubstage2 -= NT
                NT = 0
                urlaubstage2 = 0
                Dim comm As New OleDb.OleDbCommand("UPDATE Urlaubstage SET " & _
                "UrlaubstageJahr2008='" & urlaubstage2 & "'" & "WHERE" & _
                "Mitarbeiter='" & cb_Name.Text & "'", cn)
                comm.ExecuteNonQuery()
 
            End If
 
        End If
 
 
        If urlaubstage > 0 Then
            If NT >= urlaubstage Then
                NT -= urlaubstage
                urlaubstage = 0
            Else
                urlaubstage -= NT
                NT = 0
            End If
            Dim comm As New OleDb.OleDbCommand("UPDATE Urlaubstage SET " & _
                "UrlaubstageJahr2007='" & urlaubstage & "'" & "WHERE " & _
                "Mitarbeiter='" _
                & cb_Name.Text & "'", cn)
            comm.ExecuteNonQuery()
        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
 
        MsgBox("Die " & txt_Tage.Text & " Urlaubstag/e wurden von Ihren freien" & _
          "" & _
        "Urlaubstagen abgezogen!")
        ueberstunden = abziehung
        Button1.Visible = True
        btn_Zurück.Visible = True
        btn_Urlaub.Visible = False
 
    End Sub

abziehung = NT - urlaubstage - urlaubstage2

ueberstunden = CDbl(lbl_Überstunden.Text)

ueberstunden = abziehung