¿Cómo implementar la función "actualizar datos" en VB?

El enfoque habitual es utilizar el control del navegador web para abrir una página web específica, obtener el contenido de la página web y luego utilizar el control ado para colocar los datos en la base de datos. Hice un ejemplo para obtener los últimos resultados de la lotería Shuangseqiu

Private Sub Command1_Click()

qishu = WebBrowser1.Document.All.tags("table").Item(0). Rows.Item(1).innerText 'Intercepta el número de problema

hq = WebBrowser1.Document.All.tags("table").Item(0).Rows.Item(1).Cells.Item (1). InnerText 'Intercepta la bola roja

lq = WebBrowser1.Document.All.tags("table").Item(0).Rows.Item(1).Cells.Item(1) .Document.All.tags("table").Item(0).Rows.Item(1).Cells.Item(2).innerText 'Interceptación de bolas azules

adocn.Open "Provider= Microsoft .Jet.OLEDB.4.0; Data Source=" amp; App.Path amp; "\aa.mdb; Persist Security Info= False" 'Abrir base de datos

adocn.Execute "insertar en una bola de doble color (número de período, bola roja, bola azul) valores ('" amp; qishu amp; "', ''" amp; hq amp; "', ''" amp; lq amp; "' )"Datos de entrada

adocn.Close Cerrar la base de datos

End Sub

Private Sub Form_Load()

WebBrowser1.Navigate "/play_ list_game_5.html" Abra la página web especificada

End Sub