如果是SQL Server:
dim i as date =e.Form.Controls("DateTimePicker1").Value
datatables("订单表").loadfilter ="日期<= '" & i & "'"
datatables("订单表").load
如果是内部表或者Access:
datatables("订单表").loadfilter ="日期<= #" & i & "#"