Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data " & _
            "Source=C:\Users\xx\Desktop\Urlaubsantrag\Urlaubsantrag\Urlaubsant" & _
            "ag.mdb")
        cn.Open()
        Dim ergebnis As String
        With cn.CreateCommand()
 
            Select Case cb_Urlaubsanspruch.Text
                Case "2007"
                    If (Year(Now) >= cb_Urlaubsanspruch.Text) And _
                      cb_Urlaubsanspruch.Text <> cb_Urlaubsanspruch2.Text Then
                        .CommandText = "Select UrlaubstageJahr2007 FROM" & _
                        "Urlaubstage WHERE " & _
                              "Mitarbeiter='" & cb_Name.Text & "'"
                        ergebnis = .ExecuteScalar.ToString
                        lbl_Urlaubstage.Text = ergebnis
                    Else
 
.Dispose()
        End With
        cn.Close()