If Time > "09:00" And Time < "12:00" Then
DoCmd.OpenForm "Form1", acNormal
ElseIf Time > "12:01" And Time < "15:00" Then
DoCmd.OpenForm "Form2", acNormal
ElseIf Time > "15:01" And Time < "18:00" Then
DoCmd.OpenForm "Form3", acNormal
Else
DoCmd.OpenForm "Form4", acNormal
End If