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()
    .CommandText = "Select UrlaubstageJahr" & cb_Urlaubsanspruch2.Text & _
      " FROM Urlaubstage WHERE " & _
      "Mitarbeiter='" & cb_Name.Text & "'"
    ergebnis = .ExecuteScalar.ToString
    lbl_Urlaubstage2.Text = ergebnis
    .Dispose()
  End With
  cn.Close()
 End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de