Consulta com mais de 1 criterio com base em ListBox

Pessoal, boa tarde.
Utilizo o Access 2007, e com a ajuda do forum, consegui criar uma ListBox onde consigo selecionar quantas linhas eu quiser, e cada linha selecionada, aparece em um TextBox.
Neste exemplo, tenho em minha ListBox duas colunas: Produto(Numero -Unico) e Nome(texto). Para cada linha que seleciono no ListBox, aparece no TextBox, o Produto(Numero) de cada linha selecionada na CaixadeTexto separado por virgula. Ex: 1, 2, 5, 6
SITUAÇÃO: Preciso criar uma Consulta que permita utilizar o TextBox gerado pelo ListBox como critério... porem eu posso deixar em branco para pesquisar TODOS, ou selecionar 1 ou mais de um produto, para gerar uma comparação.
DUVIDA: Em minha consulta, tentei o criterio Like "*" & [Forms]![frmListBox]![CaixaDeTexto] & "*" mas só funciona com 1 item selecionado... Quando eu seleciona mais de um produto, a consulta não funciona.
Como fazer isso??
Obrigado

Veja o exemplo do mestre Avelino...

Option Compare Database
Dim nSel As Integer

Private Sub btRelatorio_Click()
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 = "idfruta " & filtro

If j = False Then Exit Sub
DoCmd.OpenReport "rltFrutas", acViewPreview, , filtro
End Sub

Olá amigo!
Desculpe a demora, pois estava em viagem pela empresa.

Muito obrigado pela resposta... mas não estou entendendo o motivo pelo qual não consegui fazer funcionar em meu formulario. Aparece uma mensagem de Sintax Error na linha "DoCmd.OpenReport "RLT_FINALIZADO", acViewPreview, , filtro"
Teria alguma ideia do que pode ser?

Obrigado

Favor encaminha o BD para que possa verificar?

Ola,
Só gostaria de agradecer a este post que me ajudou a realizar a consulta da forma que precisava.

VALEU!!!