Select Case Date()
Case Me.txtDate1 To Me.txtDate2
Case DateAdd("d", 1, Me.txtDate2) To Me.txtDate3
more cases here, as many as needed...
This assumes, of course, that all the date fields are entered. If not, you'll have null values that will have to be dealth with.