Visual Basic - Error en consulta SQL

Esto no me funciona:

rst.Open "SELECT DISTINCT [Facturas de Ventas].Serie, [Facturas de Ventas].[Numero Documento], [Facturas de Ventas].[Fecha Factura], [Facturas de Ventas].[Código Cliente],[Facturas de Ventas].[Forma Pago], Sum(([CANTIDAD]*[PRECIO])-redeuro([Importe Descuento])) AS Total, [Detalles Facturas Ventas].Iva, [Detalles Facturas Ventas].Recargo, [Facturas de Ventas].Empresa, [Facturas de Ventas].Periodo " & _
"FROM [Facturas de Ventas] LEFT JOIN [Detalles Facturas Ventas] ON [Facturas de Ventas].Numero = [Detalles Facturas Ventas].Numero " & _
"GROUP BY [Facturas de Ventas].Serie, [Facturas de Ventas].[Numero Documento], [Facturas de Ventas].[Fecha Factura], [Facturas de Ventas].[Código Cliente],[Facturas de Ventas].[Forma Pago], [Detalles Facturas Ventas].Iva, [Detalles Facturas Ventas].Recargo, [Facturas de Ventas].Empresa, [Facturas de Ventas].Periodo " & _
"Having ((([Facturas de Ventas].Empresa) = " & Left(Importacion.empresas, 2) & ") And (([Facturas de Ventas].Periodo) = " & Importacion.empgamaejercicio.Caption & ")) ORDER BY [Facturas de Ventas].Serie, [Facturas de Ventas].[Numero Documento],[Detalles Facturas Ventas].Iva DESC;", cnn, adOpenDynamic, adLockOptimistic

Es porque redeuro al inicio de la instruccion es una función personalizada y no la ejecuta. Alguien me puede decir como resolverlo. Gracias.

Si se trata de SQL Server, revisa la cadena de conexión si estás utilizando el proveedor OLEDB y no ODBC. Por otra parte revisa primero la sentencia en el analizador de consultas y los permisos de la función. También puedes intentar colocarla en un procedimiento y ejecutarlo a ver que ocurre.

Por lo extenso te lo he enviado por email....Gracias.