Form = frmReport
Textbox name = txtFromDate
Create a button & paste in this code
Dim sFromDate As String
sFromDate = Form_frmReport.txtFromDate
' Preview the report and pass in the values
' fromDate is the feild name from the table (or Query)
Dim stDocName As String
stDocName = "Report"
DoCmd.OpenReport stDocName, acViewPreview, , "fromDate = " & sFromDate