Private Sub cmdOpenReport_Click()
	Dim strWhere As String

	If IsNull(Me!txtStartDate) Or IsNull(Me!txtEndDate) Then
		DoCmd.OpenReport "rptOrders", acViewPreview
	Else
		' Build the WHERE clause.
		strWhere = "[OrderDate] Between #" & Me!txtStartDate & _
			"# And #" & Me!txtEndDate & "#"

		DoCmd.OpenReport "rptOrders", acViewPreview, , strWhere
	End If
End Sub