Private Sub cb_Urlaubsanspruch_LostFocus(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles cb_Urlaubsanspruch.LostFocus
 
        Dim Str As String
 
        If cb_Urlaubsanspruch.Text = "2007" Then
            lbl_Urlaubstage.Text = Str = "Select UrlaubstageJahr2007 FROM" & _
              "Urlaubstage WHERE Mitarbeiter=" & cb_Name.Text
        Else
            If cb_Urlaubsanspruch.Text = "2008" Then
                lbl_Urlaubstage.Text = Str = "Select UrlaubstageJahr2008 FROM" & _
                  "Urlaubstage WHERE Mitarbeiter=" & cb_Name.Text
            End If
        End If
    End Sub