sql = "Select rd_room, rd_date, rd_time1 From RoomOrder " & _
"Where (rd_room='"& rd_room &"') And (rd_date='"& rd_date &"') And (rd_time1='"& rd_time1 &"')"
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
XXXXXXXXXXXXXXXXXXXXXX
End If
sql = "Select rd_room, rd_date, rd_time1, rd_time2 From RoomOrder " & _
"Where (rd_room='"& rd_room &"') And (rd_date='"& rd_date &"') <= (rd_time1='"& rd_time1 &"')"
Set rs = Conn.Execute(sql)