Hola.. por lo que vi en tu error coincido con Cauchemar que te falta darle un espacio a tu consulta...
Cita: Error de sintaxis en la cadena en la expresión de consulta
'CodSeccion=1'order by
Si te das cuenta esta junta la cadena...
y te está marcando un error de sintaxis
Prueba lo siguiente:
sSql="Select * From Productos where CodSeccion=" & seccion & " order by CodProducto desc"
Saludos y suerte..
