Dim time1 As Date
Dim time2 As Date
time1 = [Forms]![工作完成]![ActiveX控件0]
time2 = [Forms]![工作完成]![ActiveX控件21]
Me.工作完成_子窗体.Form.RecordSource = "SELECT 工作完成.工作完成ID, 工作完成.工作进展说明, 工作完成.部门人员ID, 工作完成.日期, 工作完成.工时消耗(小时) FROM 工作完成 WHERE (((工作完成.日期)> " & time1 & " And (工作完成.日期)< " & time2 & "));"