如果日期在范围

Question

我想知道是否有人可以帮助我使用我的VB代码。我相信我很接近，因为很多时候我的代码工作得很好但我注意到它可能有一个弱点，因为有时候我会得到意想不到的结果。我想我错过了一些非常基本的东西，所以忍受我！

基本上，我正在尝试在数据表中创建一个简单的酒店预订系统，用于我在业余时间创建的VB项目。

我希望能够完成的是用户能够从列表框中选择房间号码然后选择到达和离开日期。发生这种情况后，他们点击一个按钮，我希望程序能够将房间号码与预订的开始日期和预订的结束日期与房间号码进行比较，开始日期和结束日期已经在每个行内数据表。无论如何，这里基本上是我的If语句到目前为止的结构：

For Each data As DataRow In dtRoomReserveData.Rows
     If data.Item("RoomNum").ToString.Contains(lstSelectRoomNum.Text) AndAlso data.Item("DateArrive") >= dateArrive.Value.Date AndAlso dr2.Item("DateArrive") <= dateLeave.Value.Date Then
         'if there is a reservation in room exists during that Date range display error message to user:
         MessageBox.Show("Sorry!  That room is already reserved during that date range!")
         Exit Sub
     End If
Next

非常感谢任何提供的帮助！