Boa noite... a soma não está dando certo nessa string... onde está o erro:
Consulta = "SELECT Produto.Produto, "
Consulta = Consulta & "Resultado.Certificado, "
Consulta = Consulta & "Laudo.DataCadastro, "
Consulta = Consulta & "Cliente.Nome, "
Consulta = Consulta & "Amostra.Tipo, "
Consulta = Consulta & "Produto2.PLiq, "
Consulta = Consulta & "SUM(Destinatario.TaxaR AS 'VrTotal'), "
Consulta = Consulta & "Produto2.Lote "
Consulta = Consulta & "FROM "
Consulta = Consulta & "((((((Cima INNER JOIN Produto "
Consulta = Consulta & "ON Produto.Coleta = Laudo.Coleta) "
Consulta = Consulta & "INNER JOIN Cliente "
Consulta = Consulta & "ON Cliente.Coleta =Laudo.Coleta) "
Consulta = Consulta & "INNER JOIN Amostra "
Consulta = Consulta & "ON Amostra.Coleta = Laudo.Coleta) "
Consulta = Consulta & "INNER JOIN Produto2 "
Consulta = Consulta & "ON Produto2.Coleta = Laudo.Coleta) "
Consulta = Consulta & "INNER JOIN Destinatario "
Consulta = Consulta & "ON Destinatario.Coleta = Laudo.Coleta) "
Consulta = Consulta & "INNER JOIN Resultado "
Consulta = Consulta & "ON Resultado.Coleta = Laudo.NumColeta) "
Consulta = Consulta & "WHERE Laudo.DataCadastro BETWEEN #" & Format(DataI, "MM/DD/YY") & "# AND #" & Format(Data, "MM/DD/YY") & "# "
Consulta = Consulta & "ORDER BY Laudo.DataCadastro"
obrigado