Puedo leer los datos de un Excel en una carpeta compartida usando un `Recordset` con `ADODB`; puedo escribir esos datos en un archivo local, pero de la forma `Range().Value`. No he podido hacerlo usando un `Update` con `ADODB`.

Esta es mi conexión:

    Dim cnCaja As ADODB.Connection
    Set cnCaja = New ADODB.Connection
    cnCaja.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source='" & esteLibro & "';" & _
            "Extended Properties='Excel 12.0;HDR=Yes;ReadOnly=False';"

La idea es que sea algo parametrizada y con filtros, pero para simplificar el problema:

    consUpdate = "Update [Base$A3:T100000] set INVERSIONES = 10000"

Y finalmente la parte que debiera hacer algo:

    Dim rsCaja As ADODB.Recordset
    Set rsCaja = New ADODB.Recordset

    rsCaja.Open consUpdate, cnCaja, adOpenKeyset, adLockOptimistic

No da error ni dice nada.

¿Qué me falta para que el campo `INVERSIONES` se llene de 10000?