主题：[求助]代码出现错误，求达人解惑

Dim dr1 As DataRow
Dim dr2 As DataRow

Dim d As WinForm.DateTimePicker = e.Form.Controls("日期")

Dim rq As Date = d.Value

dr1 = DataTables("清单").Find("日期 = #" & rq & "#")
dr2 = DataTables("清单").Find("日期 = #" & rq.AddDays(-1) & "#")