Set TbEntrada1 = BdBaixas.OpenRecordset("SELECT codigo1,sum(Entrada)AS sEntrada FROM Adiciona Left Join Baixas ON Baixas.Codigo=Adiciona.codigo1 GROUP BY Codigo1", dbOpenSnapshot)
Semmer com esta intrução acima que vc pediu para testar, volta para o erro citado em seu primeiro post.
Explicando melhor a estrutura das tabelas:
Tabela Adiciona:
Lançamento de entradas no estoque
Campos ---> Codigo1 e Entrada
Tabela Baixa:
Baixas em estoque
Campos ---> Codigo e Saida
O cod 000382 esta na tabela Baixa mas não esta na tabela Adiciona, pois so houve baixa.
O cod 000434 esta nas duas, pois houve entrada e saida.
Não sei se fui claro.