SoloCodigo

Buenas, tengo un problema con una consulta SQL, en SQL Server me funciona perfectamente, pero en Access no me funciona y me da un error.
La consulta es:
SELECT c.cli_nombre, c.cli_codigo, c.cli_dni, c.cli_descrip, cc.tom_nombre, h.hid_nombre, p.par_nombre, p.par_superf, z.zon_nombre, ht.htom_codigo,
SUM(cc.diferencia) AS Expr1
FROM calculo_consumos_export_listado AS cc INNER JOIN
toma AS t ON cc.tom_id = t.tom_id INNER JOIN
cliente AS c ON t.cli_id = c.cli_id INNER JOIN
h_toma AS ht ON cc.htom_id = ht.htom_id INNER JOIN
hidrante AS h ON cc.hid_id = h.hid_id INNER JOIN
zona AS z ON cc.zon_id = z.zon_id INNER JOIN
parcela AS p ON t.par_id = p.par_id
WHERE (cc.htom_factual >= '20090501') AND (cc.htom_factual < '20090715') AND (c.cli_codigo <> '000')
GROUP BY c.cli_nombre, c.cli_codigo, c.cli_dni, c.cli_descrip, cc.tom_nombre, h.hid_nombre, p.par_nombre, p.par_superf, z.zon_nombre, ht.htom_codigo
ORDER BY c.cli_nombre
y el error que me da es el siguiente:
Error de sintaxis (falta operador) en la expresión de consulta 'cc.tom_id INNER JOIN cliente AS c ON t.cli_id = c.cli_id INNER JOIN h_toma AS ht ON cc.htom_id = ht.htom_id INNER JOIN hidrante AS h ON cc.hid_id = h.hid_id INNER JOIN'.

Alguien sabe como puedo solucionar mi problema?

Muchas gracias pero al final lo he hecho con otro codigo.

    Private Function getRedondeo(ByVal numero As Decimal) As Decimal
        Dim salida As Decimal = 0
        Dim i As Integer = 0
        Dim b As Integer = 0

        Dim aux As String = Format(numero, "#.00")
        aux = aux * 100
        Dim parteDecimal As Integer = aux Mod 100
        Dim a As String = numero.ToString
        Try
            For i = 0 To a.Length - 1
                If a.Chars(i) = "," Then
                    b += 1
                End If
                If a.Chars(i) <> "," And b = 0 Then
                    i += 1
                End If
            Next

            If parteDecimal <> 0 Then
                a = a.Substring(0, i)

                Dim parteEntera As Integer = a

                Select Case parteDecimal
                    Case 0 To 25
                        parteDecimal = 0
                    Case 26 To 75
                        parteDecimal = 50
                    Case 76 To 99
                        parteDecimal = 0
                        parteEntera += 1
                End Select

                aux = parteEntera & "," & parteDecimal

                salida = CType(aux, Decimal)

                Return salida
            Else
            End If
        Catch ex As Exception
        End Try

    End Function

Buenas, verán tengo un programa donde en una fórmula me aparece con dos decimales, pero lo que necesito es que si el decimal está entre 0 i 0.25 que redondee hacia abajo, si el decimal está entre 0.25 i 0.75 que redondee a 0.50 y que si está por encima de 0.75 que redondee para arriba.
Alguién sabe como puedo hacer eso?

Muchas gracias