Display a month's worth of data if user's search is empty

Greetings again experts,
The code below is designed to allow users to perform a search by either specific date or by date range.
Users can also search by selecting a search option from the dropdownlist.
The way the code works currently, if user's search turns up nothing, then nothing gets displayed.
We would like the code to work differently.
If user's search is successful, the results of his/her search is displayed.
If however, no data is found, we would like to display one month's worth of results.
Is this doable?
Below is the current code we are using.
Thanks a lot in advance for your assistance.
Private Sub showGrid() ' Set the value of the SearchString so it gets SearchString = txtSpecificDate.Text ViewSelect = Request("ViewBy") If ViewSelect = "" Or ViewSelect = "Range" Then ViewSele ...