菜鸟问题：请问如何用时间控件控制生成需要的DataReport报表

我给你一个我自己做的例子，看看能不能帮你Public Sub DataGrid1Show()         '显示DATAGRID
Dim rsdetail As Recordset
Set rsdetail = New Recordset
Dim str As String
Dim Userid As Long
Userid = Combo2.ItemData(Combo2.ListIndex)
Dim StartDate As Date
Dim EndDate As Date
Dim StartTime As Date
Dim EndTime As Date
StartDate = DateValue(DTPicker1.Value)      'dtpicker1里的开始日期
EndDate = DateValue(DTPicker2.Value)        'dtpicker1里的结束日期
StartTime = StartDate + "00:00:00"
EndTime = EndDate + "23:59:59"
If StartDate > EndDate Then          '比较两个日期是否合法
MsgBox "请检查您输入的日期！", , "Warning"
Exit Sub
End If
str = "select * from user_temp_sch where cometime># " & StartTime & " # and leavetime<# " & EndTime & " # and userid= " & Userid & " order by cometime"
rsdetail.Open str, cnnView
Set DataGrid1.DataSource = Nothing
Set Adodc1.Recordset = rsdetail
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
DataGrid1.Refresh
SetHead
End Sub
在我调用的数据库里有一张表user_temp_sch ，里面有两个关于时间的字段"cometime"和"leavetime"，所以在SQL语句里把它们加进去作为查询条件。