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

Auf der Suche nach einem Hilfreichen Tutorial? Dann schau vorbei, auf http://tuts4you.de