Dim Soma as Double
Set Rs1 = db.OpenRecordset("SELECT SUM([SALDO EM ESTOQUE] * [VALOR
UNITARIO])AS TOTAL FROM [CALCULO$]", dbOpenSnapshot)
If IsNull(Rs1("TOTAL")) Then
LbTotal = Format(0, "#,##0.00")
Else
LbTotal = Format(Rs1("TOTAL"), "#,##0.00")
Soma = Rs1("TOTAL")
End If
LbTotal = Soma + CDbl(Lb_Entrada) - CDbl(Lbsaida)
------------------------------------------------------
SE não for isso mande de volta se explicando melhor !