Ao abrir Relatório fechar SubForm com timer

Boa tarde caríssimos.
Ao abrir um relatório preciso fechar um determinado SubForm com o seguinte porém, como o relatório trás uma informação deste SubForm para o cabeçalho, o sistema não pode fechá-lo de imediato, tem que aguardar alguns segundos.

Conseguem me ajudar a implementar no código abaixo algum temporizador antes de executá-lo?

Private Sub Report_Open(Cancel As Integer)
DoCmd.Close acForm, "SubFrmRelatorios"
End Sub

E se o relatório pegar o dado direto da tabela ou consulta ao invés do formulário?

Na verdade é isso mesmo. O relatorio pega os dados de uma consulta.
Acontece o seguinte, tem um SubFrm que o usuário informa o período inicial e o período final para o relatorio que ele deseja, a consulta pega as datas informadas neste SubFrm e monta uma tabela e o relatório puxa os dados desta tabela que foi montada. Já no cabeçalho deste relatório é que constam as datas informadas no SubFrm, e estas datas não aparecem da consulta.
Por exemplo:
O usuário informou que deseja obter dados do período de 01/01/2011 a 30/06/2011, no cabeçalho do relatório vai aparecer o seguinte:
"Este relatório carregou as informações do período de 01/01/2011 a 30/06/2011."

Tente colocar esses dados pelo botão que abre o relatório:

DoCmd.OpenReports...

Reports!NomeDoRelatório!CampoData = Me.CampoData
Reports!NomeDoRelatório!CampoHora = Me.CampoHora

DoCmd.Close acForm, Me.Name

Caro, desculpe pela demora no feedback.
No caso o código ficaria assim:

Private Sub Comando5_Click()

Dim stDocName As String

stDocName = "RelFaturamentoPorPeríodo"
DoCmd.OpenReport stDocName, acPreview

Reports!RelFaturamentoPorPeríodo!DataInicial = Me.DataInicial
Reports!RelFaturamentoPorPeríodo!DataFinal = Me.DataFinal

DoCmd.Close acForm, SubFrmFiltroDataRelatorio

Exit_Comando5_Click:
Exit Sub
End Sub

Correto?

Se for está apresentando o erro '2493'