[Resolvido]Critérios List Box e TextBox

Ola, voltei. Gostaria de ajuda, não consigo que esse código funcione no subformulário.

Private Sub Relatorio1_Click()

DoCmd.OpenReport "relSaldosBancarios", acViewPreview, "", "[SaldosBancarios]![Conta] In (" & ObterSelecionados(Lista, False) & ") And [SaldosBancarios]![DataM] Between Forms!SaldosBancarios!DataInicial And Forms!SaldosBancarios!DataFinal"

End Sub

Se utilizar o primeiro critério da listbox funciona mas, as datas não funcionam, sempre aparece a caixa de diálogo para inserir o valor do parametro (data inicial e final) que ao preencher o resultado é correto.
Obrigada quem puder me ajudar.

Já consegui resolver. Faltou colocar o nome do subformulário.

Bom dia. marli

Quando resolver, coloque o "Resolvido" localizado na parte inferior direita do formulário
Desta, marco eu.