主题：时间变量与if语句

Dim dt As DataTable = DataTables("表A")
Dim d As Date = new Date(1900, 1, 1, Date.now.hour, Date.now.Minute, Date.now.Second)
Dim fdr As DataRow = dt.find("时间表 >= #" & d & "# And 时间表 <= #" & d.AddSeconds(10) & "#")
If fdr IsNot Nothing Then
    msgbox("时间到了")
    Audio.play(ProjectPath & "Attachments/" & fdr("执行音乐"), AudioPlayMode.WaitToComplete)
End If