Filtrando subrelatório com variável global

Eu tenho um relatório que troca de subrelatório no evento Report_Open.

Código:

If opcaoNormal = True Then
   Me.rlt_det_orcamento_simples_normal.SourceObject = "Relatório.rlt_det_orcamento_resumo_normal"
Else    'então é Resumo com Custo
   Me.rlt_det_orcamento_simples_normal.SourceObject = "Relatório.rlt_det_orcamento_resumo_custo"
End If


Mas os subrelatórios rlt_det_orcamento_resumo_normal e rlt_det_orcamento_resumo_custo
são baseados em consultas.
O segundo, rlt_det_orcamento_resumo_custo tem um campo chamado 'Importado'

Eu queria filtrar os registros deste subrelatório simplesmente no evento Report_Open com:

Código:

Me.filter = "Importado=" & bImportado
Me.filterOn = True


Onde bImportado é uma variável pública do tipo boolean. Mas não está funcionando.

Eu pensei em usar este critério direto na consulta, mas não sei como aplicar uma variável pública como critério na consulta.
De qualquer forma seria melhor se eu definisse o critério ao abrir o relatório.

Como faço isso?

Uma função pública que busca uma variável pode ser usada dentro de uma consulta no Access.

Legal, e como se faz isso, eu tentei mas não deu certo.
Talvez eu não tenha feito a sintaxe correta.

Se a variável bImportado é realmente pública como você está dizendo, ou seja, está me um módulo e fora de qualquer escopo de funtion ou sub, então basta criar uma função assim:

Código:

Public Function buscarImportado() As Boolean
    buscarImportado = bImportado
End Function

E utilizar na consulta assim:

Código:

Select * from TabelaProduto Where Importado = buscarImportado()

A função irá buscar o valor da variável pública sempre que a consulta executar.