Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data " & _
                                   "Source=C:\Users\xx\Desktop\UrlaubsantragVe" & _
                                   "sion2\Urlaubsantrag\Urlaubsantrag.mdb")
        cn.Open()
        Dim ergebnis As String
        With cn.CreateCommand()
            .CommandText = "Select Ueberstunden2008 FROM Urlaubstage WHERE " & _
                              "Mitarbeiter='" & cb_Name.Text & "'"
            ergebnis = .ExecuteScalar.ToString
            TextBox1.Text = ergebnis
            .Dispose()
        End With
        cn.Close()
    End Sub