Problemas para actualizar un registro en una BBDD mediante un script en VBScript

[dogduck]

Prueba esto y cuentanos

Código:

Option Explicit

Sub main()

DIM oCon
Set oCon = CreateObject("ADODB.Connection")

With oCon
    .Provider = "Microsoft.Jet.OLEDB.4.0"

    .ConnectionString = "Data Source=D:\Chapucillas\BDITO.mdb"

    .Open

   
        .UPDATE interfacesRA SET Proveedor = 'AUNA' WHERE ((InterfacesRA.pvc Like '3/*') AND (InterfacesRA.router='RADSLS'));

        .Close

   MsgBox "Finito - Comprobar validez del script", 32, "Fin del proceso"

End With
End Sub

main()

Si no te vale busca en google web del buho e investiga por hay , tiene muy buenas ideas para el access esa web