Select sql com IF no cálculo

Exmos
Só vocês me conseguirão recolver este quebra cabeças.
Numa consulta tenho este cálculo, mas estou a tentar passar tudo para listbox para aumentar a estabilidade.

Código:

SELECT Sum(IIf([TipoMov]="R",[Montante],-[Montante])) AS Saldo
FROM Situação INNER JOIN (Entidade INNER JOIN (Despesas INNER JOIN (Banco INNER JOIN Movimentos ON Banco.ID = Movimentos.Banco) ON Despesas.ID = Movimentos.Descricao) ON Entidade.ID = Movimentos.Entidade) ON Situação.ID = Movimentos.Situacao
GROUP BY Banco.Banco, Situação.Situação
HAVING (((Banco.Banco)=[Formulários]![frm_trab_banco]![CaixaCombinação8]) AND ((Situação.Situação)="Realizado"));


Em listbox ficaria:

Código:

Private Sub Saldo_Click()
Dim strSQL As String
Dim rs As DAO.Recordset

    With Lbx
        .RowSourceType = "Value List"  
        .ColumnCount = 1                
        .ColumnWidths = "5cm"  
        .ColumnHeads = True            
        .RowSource = "Saldo"      
        .Requery
    End With
    
    
    strSQL = "SELECT Sum(IIf([TipoMov]="R",[Montante],-[Montante])) AS Saldo" '---não consigo fazer esta parte, como se coloca um if a calcular no select em vba?
    strSQL = strSQL & " FROM Movimentos"
    strSQL = strSQL & " INNER JOIN Banco on Banco.ID = Movimentos.Banco"
    strSQL = strSQL & " INNER JOIN Situação on Situação.ID = Movimentos.Situação"
    strSQL = strSQL & " GROUP BY Banco.Banco, Situação.Situação"
    

If Nz(Me.CaixaCombinação8, "") <> "" Then
strSQL = strSQL & " HAVING Banco='" & Me.CaixaCombinação8 & "'"
End If
    
strSQL = strSQL & " and Situação='" & Realizado & "'"
End If

    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    
        
    'Para colocar dados na listbox
    Do Until rs.EOF
        Me.Lbx.AddItem rs!Montante
        rs.MoveNext
    Loop
    
    'Fecha recordset
    rs.Close
    
    'Apaga recordset da memoria
    Set rs = Nothing

End Sub



Como posso colocar um if no calculo em SQL no VBA?

Boa tarde
Não indicou qual o problema no código mas se fôr das aspas, substitua-as por pelicas
Aproveite e comece a nomear de forma normalizada

Código:

SELECT Sum(IIf([TipoMov]='R',[Montante],-[Montante])) AS Saldo
FROM Situação INNER JOIN (Entidade INNER JOIN (Despesas INNER JOIN (Banco INNER JOIN Movimentos ON Banco.ID = Movimentos.Banco) ON Despesas.ID = Movimentos.Descricao) ON Entidade.ID = Movimentos.Entidade) ON Situação.ID = Movimentos.Situacao
GROUP BY Banco.Banco, Situação.Situação
HAVING (((Banco.Banco)=[Formulários]![frm_trab_banco]![CaixaCombinação8]) AND ((Situação.Situação)='Realizado'))

O VBA não me reconhece o IIF no select em VBA numa listbox.
Só funciona se for através do objeto consulta.
O pretendido é que funcionasse em VBA, mas não consigo encontrar alterativa.
Abraço

Boa tarde
Disponibilize dados representativos para se ajustar

Peço desculpa pela demora.
Deixo em anexo a base de dados e front, fiz uma limpeza de histórico por conter dados sensíveis.

Ao entrar vincular à base de dados (user:admin senha:admin).
Gestão bancária/ Contas bancárias (vai abrir o frm_trab_banco) que é o formulário em questão.
O que pretendo é substituir o vinculo direto por uma listbox com recordset para criar estabilidade.
Mas como tem uma condição para o sinal, não consigo contornar a situação.

A única forma que vejo era ter colocado manualmente o sinal + ou - antes do valor, mas não dá jeito e pode gerar erros.
O front está desenvolvido para a versão MsAccess 2010 e 2019, nas outras versões pode não arrancar com a Ribbon.