Colocar fecha en informe

[guillebomtrasmiti]

Hola...utilizo este código para sacar informes de access con mi aplicación;

Dim oAccess As Access.Application
frmProgressbar.Show()
'Start a new instance of Access for Automation:
'oAccess = New Access.ApplicationClass()
oAccess = New Access.Application
'Open a database in exclusive mode:
oAccess.OpenCurrentDatabase(filepath:=CurDir() & "\Gestion.mdb", Exclusive:=False)

'Preview a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Inventarios_ Mostrador_5", _
View:=Access.AcView.acViewPreview)
'Print a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Inventarios_ Mostrador_5", _
View:=Access.AcView.acViewNormal)
oAccess.CloseCurrentDatabase()
oAccess.DoCmd.Close()
oAccess.Quit()
oAccess = Nothing
frmProgressbar.Close()
End If
Catch ex As Exception
frmProgressbar.Show()
Dim oAccess As New Access.Application
MessageBox.Show("Se ha producido una excepción: " + ex.Message)
oAccess.DoCmd.Close()
oAccess.Quit()
oAccess = Nothing
frmProgressbar.Close()

pero no se como hacer que el informe refleje en la parte superior las fechas que el usuario a seleccionada en el datatimepicker....alguna aportación?, gracias