Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
    "Source=C:\xx\xx\xx\xx\xx\xx\xx\xx.mdb")
cn.Open()
    Dim ergebnis As String
With cn.CreateCommand()
If cb_Urlaubsanspruch.Text = "2007" Then
.CommandText = "Select UrlaubstageJahr2007 FROM Urlaubstage WHERE" & _
  "Mitarbeiter='" & cb_Name.Text & "'"
ergebnis = .ExecuteScalar.ToString
.Dispose()
End With
cn.Close()
 
lbl_Urlaubstage.Text= ergebnis