VB 那个“更新数据” 的功能如何实现?

这一般是用webbrowser控件去打开指定网页，通过获取网页指定内容，然后利用ado控件将数据放入数据库。我做了一个例子，就是获取最新一期双色球开奖结果 Private Sub Command1_Click() qishu = WebBrowser1.Document.All.tags("table").Item(0).Rows.Item(1).Cells.Item(0).innerText ’截取期号 hq = WebBrowser1.Document.All.tags(&