SQL - ERRO SINTAXE

qual é o erro ai pessoal...
nao acho de jeito nenhum...
valew

db.open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\sistema.mdb"

Sql = Sql & "select sum(Vendas.quantidade) as TotalQuant, sum(Vendas.quantidade * Vendas.valor_venda) as TotalVenda, sum(Vendas.quantidade * Vendas.preco_custo) as TotalCusto, Produtos.codigo_produto, Produtos.descricao From Vendas, Produtos, Vendas_Capa where Vendas_Capa.data Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# And Vendas.codigo_venda = Vendas_Capa.codigo_venda And Produtos.codigo_produto = Vendas.codigo_produto group by Produtos.codigo_produto, Produtos.descricao order by Produtos.descricao,"


Sql = Sql & "select sum(cheque+dinheiro+moeda) as TotalDespesas from Despesas where data Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# ,"


Sql = Sql & "select sum(Vendas_Capa.fiado) as TotalFiados, sum(Vendas_Capa.dinheiro) as TotalDinheiro, sum(Vendas_Capa.moeda) as TotalMoeda, sum(Vendas_Capa.cheque) as TotalCheque From Vendas_Capa where Vendas_Capa.data Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59#,"
Sql = Sql & "select sum(Vendas_Prazo.valor_venda) as TotalRecebidos From Vendas_Prazo where Vendas_Prazo.data_recebido Between #" & Format(DTData.Value, "mm/dd/yyyy") & " 00:00:00# And #" & Format(DTData2.Value, "mm/dd/yyyy") & " 23:59:59# "

Set rs = db.Execute(Sql)

If rs.EOF = False Then
   Set rptVendas.DataSource = rs
   rptVendas.Show vbModal
Else
   MsgBox "Nao foram encontrados registros.", vbInformation
End If
rs.Close
db.Close