Y como escojes el tipo de moneda?
Imagino que sera un parametro que selecciona un usuario en tu hoja Excel.
Si es asi, entonces tu query debe concatenar el tipo de moneda seleccionado.
Código vb:
Ver original"... CER.[Currency Code] = '" & Moneda.Text & "' ..."