Filtros através de várias caixas de listagem

Viva,

Preciso da vossa ajuda para resolver um problema de filtros num relatório, com base na seleção efetuada em três listas diferentes e em campos diferentes.

Estou usando o seguinte código VBA:

Código:

Dim filtro As String, Sel As Variant, nSel As Integer, j As Boolean

filtro = "in("
For Each Sel In Me!Lista.ItemsSelected
    filtro = filtro & Me!Lista.Column(0, Sel) & ","
    j = True
Next
filtro = Mid(filtro, 1, InStrRev(filtro, ",") - 1) & ")"
filtro = "Depósito " & filtro

If j = False Then Exit Sub

   DoCmd.OpenReport "RInventário1", acViewReport, , filtro

Mas apenas estou a conseguir aplicar o filtro para o campo do "Depósito" - está em falta aplicar o filtro caso esteja selecionado alguma opção na lista 2 "GrupoMercadorias" e na lista 3 "Código SAP".
Já efetuei vários testes e todos sem qualquer tipo de sucesso.

muito obrigado.

Não estou a conseguir adicionar a Base de Dados à mensagem criada! Está com a extensão zip e mesmo assim dá erro...

OBG

Verifique se o tamanho do banco não esta maior do permitido para anexar 2.998 Mb