Dim web As String = "http://download.finance.yahoo.com/d/quotes.csv?s=" & Symbol & "&f=a"

    Dim request As Net.HttpWebRequest = Net.HttpWebRequest.Create(web)
    Dim response As Net.HttpWebResponse = request.GetResponse()
    Dim sr As New IO.StreamReader(response.GetResponseStream())
    Dim sourcecode As String = sr.ReadToEnd()

    ' Database connection
    Dim daoengine As New DAO.DBEngine()
    Dim dbs As DAO.Database = daoengine.OpenDatabase("Project.mdb")
    Dim rst As DAO.Recordset