Access - access vs web

Sub DescargarCombinacionGanadora()

    Dim url As String

    Dim http As Object

    Dim html As Object

    Dim combinacion As String

    ' URL de la página de la Primitiva

    url = "http://onlae.terra.es/primisorteos.asp"

    ' Crear objeto HTTP

    Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")

    ' Hacer la solicitud GET

    http.Open "GET", url, False

    http.send ""

    ' Crear objeto HTML y cargar la respuesta

    Set html = CreateObject("htmlfile")

    html.body.innerHTML = http.responseText

    ' Obtener la combinación ganadora (ajusta el selector para tu caso)

    combinacion = html.getElementById("sorteo").getElementsByTagName("li")(0).innerText

    ' Cerrar objetos

    Set http = Nothing

    Set html = Nothing

    ' Agregar la combinación ganadora a la tabla

    AgregarCombinacionATabla combinacion

End Sub

Sub AgregarCombinacionATabla(combinacion As String)

    Dim db As DAO.Database

    Dim rs As DAO.Recordset

    ' Ruta de la base de datos

    Set db = CurrentDb

    ' Abrir la tabla deseada (ajusta el nombre de la tabla)

    Set rs = db.OpenRecordset("NombreDeLaTabla")

    ' Agregar la combinación a la tabla

    rs.AddNew

    rs("CombinacionGanadora") = combinacion

    rs.Update

    ' Cerrar objetos

    rs.Close

    Set rs = Nothing

    Set db = Nothing

End Sub