CODE
Select Case Date()
Case Me.txtDate1 To Me.txtDate2
'Code here
Case DateAdd("d", 1, Me.txtDate2) To Me.txtDate3
'Code here
:
more cases here, as many as needed...
:
Case Else
'Code here
End Select
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.