SQL SUM IIF

IRENKO 29/07/2016 11:38:07
#465267

mSql = [Ô] SELECT Id, SUM(IIf((Tranzacao=[ô]SAIDA[ô]),Valor)) AS Débito, SUM(IIf((Tranzacao=[ô]ENTRADA[ô]),Valor)) AS Crédito, ([Ô] + _
[Ô] SELECT Sum(IIf(Tranzacao=[ô]SAIDA[ô],1,1)* Valor)[Ô] + _
[Ô] FROM Caixa AS tb[Ô] + _
[Ô] WHERE tb.Id<=Caixa.Id) AS Saldo[Ô] + _
[Ô] FROM Caixa[Ô] + _
[Ô] GROUP BY Id[Ô]
Dim Total_A As Long
Dim Total_B As Long

With RdsBusca
.CursorLocation = adUseClient
.Open mSql, ConexaoLCF, adOpenDynamic, adLockOptimistic
[ô]Debug.Print mSql
If Not .EOF Then
If !Débito > 0 Then
Total_A = Total_A + 1
ElseIf !Crédito > 0 Then
Total_B = Total_B + 1
End If
End If

.Close
Set RdsBusca = Nothing
End With
Txt_3 = Total_A - Total_B
End Sub

com a query acima, estou tentando carregar o Txt_3 com o resultado do calculo porem retorna 0, onde estou errando?
O banco é access em anexo.