Visual Basic - Round

Hola a todos :
Les hago la siguiente pregunta . Estoy tratando de ejecutar este select y en alguna maquinas anda bien y en otran me tira el siguiente error . \"Undefined function ‘round’ in expression\" si aguien sabe que puede ser . Yo por mi parte intale el service pack 5 para visual 6.0 y sigue tirando en mismo error. Otro dato es que desde access la consulta anda bien en cualquier equipo

desde ya gracias

Adrian

Dim r As New ADODB.Recordset
Dim sql As String

sql = \"SELECT Facturacion.FacturacionId, \"
sql = sql & \"Facturacion.Abreviatura, \"
sql = sql & \"Facturacion.Numero, \"
sql = sql & \"Facturacion.Fecha, \"
sql = sql & \"Format(Facturacion.ImporteTotal,\'Fixed\') AS [Importe], \"
sql = sql & \"Format(Facturacion.ImporteTotal-Facturacion.Cancelado,\'Fixed\') AS Por Cancelar] \"
sql = sql & \"FROM TipoComprobante INNER JOIN Facturacion ON TipoComprobante.ComprobanteId = Facturacion.ComprobanteId \"
sql = sql & \"Where (((Facturacion.FechaBaja) Is Null) \"
sql = sql & \"And ((Facturacion.ClienteId) = \" & Cliente & \") \"
sql = sql & \"And (round(Facturacion.Cancelado, 2) < round([ImporteTotal], 2)) \"
sql = sql & \"And ((TipoComprobante.SignoContable) = \'Positivo\')) \"
sql = sql & \"ORDER BY Facturacion.FacturacionId;\"

r.Open sql, DB, adOpenStatic, adLockOptimistic

Set FacturasDeudor = r