Vb6 在vb 6.0和ms access中检测冲突

我的日表名tblday上有这些记录

M T W 真实航向 F s 兆瓦 TTH WF 假设我有这个现有的时间表：

ScheduleID=10001 开始时间=上午8:30 结束时间=下午1:00 天=米 房间=AVR 课程=BSN 那么如果我添加这个新条目

ScheduleID=10002 开始时间=上午9:00 结束时间=上午10:00 日=MW 房间=AVR 课程=BSN 这将提示日程安排发生冲突，因为已经有星期一的日程安排，因此不应添加新条目：

注：MW表示“星期一”和“星期三”，如果它们有相同的时间表，我会使用它。因为如果在星期一增加一个新的日程安排，在星期四增加一个相同的日期、时间、房间和课程，这将变得多余。同样，与TTH和MWF相同，如果冲突不是两天的组合，例如MTH、TF、。。。我真的花了很多时间在这个问题上。我真的需要你的帮助：

代码如下：

Function RoomInUse() As Boolean<br><br>
    Dim room As String<br>
    Dim day As String<br>
    Dim starttime As Date<br>
    Dim endtime As Date<br>
    Dim mond As String<br>
    Set rs = New ADODB.Recordset<br>
    With rs<br>
         mond = "select * from tblsched where room Like '" & room & "%' and day like '" & room & "' and (starttime <= #" & starttime & "# And " & _<br>
        "endtime >= #" & starttime & "#) Or (#" & starttime & "#" & _<br>
        "<= starttime And endtime < #" & endtime & "#) Or (#" & _<br>
       starttime & "# <= sarttime And starttime < #" & endtime & "#)) " '"<br>
         .Open mond, con, 3, 3<br>

    End With
    If rs.RecordCount >= 1 Then
        RoomInUse = True
    Else
        RoomInUse = False
    End If
End Function

---

请帮助我专家：如果我们不知道您是如何编码的，我们将无能为力。可能的重复请编辑您的问题，并添加您在关于此问题的其他问题中发布的代码≠ VB，因此了解您真正想了解的内容会有所帮助。MS Access使用VBA。