i Need to make time interval, but I have problem when over midnight, can you tell me how to do it.

example

1. between 07.00 - 17.00 is belong to Shift A
2. between 17.00 - 23.00 is belong to Shift B
3. between 23:00 - 07:00 is belong to Shift C

I Make like this

Option Explicit
Dim rss As Recordset
Dim conn As Connection

Private Sub Form_Load()

Dim wkt As Date
Dim wkt1 As Date

Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/absdata/data.mdb;Persist Security Info=False"
conn.Open

Set rss = New ADODB.Recordset
rss.Open "select * from shift", conn, adOpenKeyset, adLockOptimistic
rss.MoveFirstrss.MoveFirst
Do Until rss.EOF
wkt = Date & " " & CDate(TimeValue(rss.Fields("Start")) - TimeValue("1:00"))
If rss.Fields("ND") = 1 Then
wkt1 = Date + 1 & " " & rss.Fields("finish")
Else
wkt1 = Date & " " & rss.Fields("finish")
End If
If Now() >= wkt And Now() < wkt1 Then
shift.Text = rss.Fields("ShiftName")
End If
rss.MoveNext
Loop
end sub



But the problem when I open form on midnight, doesn't work

thanks in advance

eka