Me.UrlaubstageTableAdapter1.Fill(Me.UrlaubsantragDataSet1.Urlaubstage)

Private Sub cb_Name_TextChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles cb_Name.TextChanged
 
        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()
 
 
 
            .CommandText = "Select 2007 FROM Urlaubstage WHERE " & _
                              "Mitarbeiter='" & cb_Name.Text & "'"
            ergebnis = .ExecuteScalar.ToString
            lbl_Urlaubstage.Text = ergebnis
 
            .CommandText = "Select 2008 FROM Urlaubstage WHERE " & _
                             "Mitarbeiter='" & cb_Name.Text & "'"
            ergebnis = .ExecuteScalar.ToString
            lbl_Urlaubstage2.Text = ergebnis
 
 
 
 
            .Dispose()
        End With
        cn.Close()
    End Sub