Private Sub cb_Urlaubsanspruch2_TextChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles cb_Urlaubsanspruch2.TextChanged
        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data " & _
            "Source=C:\Urlaubsantrag.mdb")
        cn.Open()
        Dim ergebnis As String
        With cn.CreateCommand()
 
            Select Case cb_Urlaubsanspruch2.Text
                Case "2007"
                    .CommandText = "Select UrlaubstageJahr2007 FROM Urlaubstage" & _
                      "WHERE " & _
                          "Mitarbeiter='" & cb_Name.Text & "'"
                    ergebnis = .ExecuteScalar.ToString
                    lbl_Urlaubstage2.Text = ergebnis
                Case "2008"
                    .CommandText = "Select UrlaubstageJahr2007 FROM Urlaubstage" & _
                      "WHERE " & _
                      "Mitarbeiter='" & cb_Name.Text & "'"
                    ergebnis = .ExecuteScalar.ToString
                    lbl_Urlaubstage2.Text = ergebnis
                Case "2009"
                    .CommandText = "Select UrlaubstageJahr2007 FROM Urlaubstage" & _
                      "WHERE " & _
                          "Mitarbeiter='" & cb_Name.Text & "'"
                    ergebnis = .ExecuteScalar.ToString
                    lbl_Urlaubstage2.Text = ergebnis
            End Select
 
            .Dispose()
        End With
 
        cn.Close()
 
 
 
    End Sub