Semmer, usei conforme abaixo e deu erro (Sintax error in join operation)
Set TbEntrada = BdBaixas.OpenRecordset("SELECT dados.Codigo,Entrada.codigo,sum(Entrada.Quant)AS sEntrada FROM Entrada,Dados left join Dados ON Dados.Codigo=Entrada.Codigo)group by codigo", dbOpenSnapshot)
Pergunto: tem jeito de adaptar essa sua sugestão na Instrução abaixo?
Set TbEntrada = BdBaixas.OpenRecordset("SELECT codigo,sum(Quant) AS sEntrada FROM Entrada Where codigo In (Select codigo FROM Dados WHERE Entrada.Codigo=Dados.Codigo And Dados.Status='S')group by codigo", dbOpenSnapshot)