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

[netenforcer]

Hola,

Tengo un problema al ejecutar una actualización sobre una BBDD Access y resulta que la siguiente consulta SQL:

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

Funciona de perlas creada dentro de la BBDD access. Pero como necesito ejecutarla una vez al día a la misma hora he creado un script en VBScript que no se porque no funciona, no me actualiza ningún registro (tampoco me aparece ningún mensaje de error). ¿Sabeis que puede pasar?

Un saludo y gracias

El script en VB es el siguiente:

Option Explicit

Sub main()

DIM oCon, SQL, BBDD
Set oCon = CreateObject("ADODB.Connection")

'Base de datos de pruebas
BBDD = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=D:\Chapucillas\BDITO.mdb;DefaultDir=;Uid=Admi n;Pwd=;"
' Base de datos de la aplicación
'BBDD = "Driver={Microsoft Access Driver (*.mdb)};" & _
' "Dbq=c:\Inetpub\BDITO.mdb;DefaultDir=;Uid=Admin;Pw d=;"

' Actualizamos las líneas que tienen pvc 3/x poniendo como proveedor AUNA
SQL = "UPDATE interfacesRA SET Proveedor = 'AUNA' WHERE ((InterfacesRA.pvc Like '3/*') AND (InterfacesRA.router='RADSLS'));"
WScript.Echo SQL
oCon.Open BBDD
oCon.Execute(SQL)
oCon.Close

End Sub

main()