Error '80040e14' al actualizar una base de datos

[RauMarSo]

Hola chicos/as tengo un problemilla con un codigo y no se que hacer porque estoy atascado.

Me da el siguiente error:
---------Inicio Error-----------
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (falta operador) en la expresión de consulta 'RefArticulo='Kalencom_Discos_Cocoa'UPDATE ARTICULOS SET [Stock]= '0' WHERE [RefArticulo] = 'Kalencom_Discos_Cocoa''.

/Includes/master.asp, línea 45
--------- Fin Error-----------


Lo que estoy intentado hacer
----- Inicio -------

AbreBaseDatos "Pedidos"
SQL="SELECT * FROM ARTICULOS WHERE NPedido='" & pedido & "'"
AbreRecordSet rs,SQL,ConPedidos

For art = 1 to rs.recordcount

AbreBaseDatos "Datos"
SQL="SELECT * FROM ARTICULOS WHERE RefArticulo='" & rs.fields("Ref") & "'"
AbreRecordSet rsArt,SQL,ConDatos

ActualizaStock = rsArt.fields("stock") - rs.fields("UnidadesArt")

AbreBaseDatos("Datos")
SQL = SQL & "UPDATE ARTICULOS SET [Stock]= '"& ActualizaStock &"' WHERE [RefArticulo] = '" & rs.fields("Ref") & "'"
AbreRecordSet rsArt,SQL,ConDatos

rs.movenext
Next

---- Fin Codigo ----

---- Codigo Master.asp ----

Sub AbreRecordset(recordset,consulta,conexion)
'Response.Write(CONSULTA & "<BR>")
Set Recordset=Server.CreateObject("ADODB.Recordset")
Recordset.Open consulta,conexion,adOpenStatic ----------------------- linea 45
End Sub

--- Fin Codigo Master.asp ----


Bueno no se si mucho rollo, pero creo que he puesto todo lo necesario.

Espero vuestra ayuda