SQL - update con select

en que estoy mal?

cn.Execute "UPDATE acumulado " _
& " SET '" & campo & "'=" _
& "(SELECT Sum([restante]) AS RS " _
& " FROM PPAGOS INNER JOIN (VENTAS INNER JOIN acumulado ON VENTAS.fra_clv = acumulado.fraccionamiento) ON PPAGOS.concepto = acumulado.concepto " _
& " WHERE (((VENTAS.STATUS)='" & STVEN & "') AND ((PPAGOS.concepto)='" & tipop1 & "') AND (PPAGOS.fecha)<= " & "#" & Format(variablenombre, "mm/dd/yy") & "#" & " and (PPAGOS.fecha)>= " & "#" & Format(varant, "mm/dd/yy") & "#" & ") " _
& " GROUP BY VENTAS.fra_clv);"

¿Es SQL Server?, ¿Ya probo su script en el Query Analyzer?,¿Porque NO lo hace un STORE PROCEDURE y simplemente le pasa los paramentros?