Tables("窗口1_Table1").Fill("Select [_Identify],[客户],[数量],[单价] From {订单} where 日期> '"& e.Form.Controls("DateTimePicker1").text & "'","nwnd",True)