Amigos está select esta funcionando, só que está trazendo valores duplicados, tipo se o valor da soma é: R$ 250,00 ela me traz R$ 500,00, o que pode estar errado.
rstPesquisa.Open "SELECT DISTINCT SUM(ValorTotalDaNota) AS Total FROM tblCadCFOP RIGHT JOIN tblEmNF2 ON LEFT(tblCadCFOP.CFOP, 5) = tblEmNF2.CFOP WHERE (((tblEmNF2.DataDaEmissao) Between #" & txtDe & "# and #" & txtA & "#) AND ((tblEmNF2.CodigoCliente) LIKE '" & Left(cboCodigo, 6) & "') AND ((tblEmNF2.NFEstornada)=False) AND ((tblCadCFOP.Duplicata)=True));", dbPesquisa, adOpenKeyset, adLockPessimistic, adCmdText
