主题：查询时间变量

Dim djbh As WinForm.TextBox = e.Form.Controls("单据编号")
Dim wldw As WinForm.TextBox = e.Form.Controls("往来单位")
Dim rq As WinForm.DateTimePicker = e.Form.Controls("日期")
Tables("T_sales").Filter="djbh like '*" & djbh.Text & "*' and wldw like '*" & wldw.Text & "*' and rq > '" & rq.Value & "' "
 
查询条件中的日期控件，日期动态变量怎么写