打印不出错，但没有内容

Question

dim date1 as date
dim date2 as date
sub dtpicker1_change()
   date1=dtpicker1.value
end sub
sub dtpicker2_change()
   date2=dtpicker2.value
end sub
Dim CN As New ADODB.Connection
  Dim RS As New ADODB.Recordset
  CN.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
            App.Path & "\option.mdb;Persist Security Info=False"
  RS.CursorLocation = adUseClient
 RS.Open "select * from data where format(time,'yyyy-mm-dd') between '#" & Format(date1, "yyyy-mm-dd") & "#' and '#" & Format(date2, "yyyy-mm-dd") & "#'", CN, adOpenDynamic, adLockOptimistic
time 是data中的字段，可以打印，不报错，但是报表中没有纪录。数据库中有，但是没有

Answer 1

有没有set datareport的数据源？
set datareport.datasource=rs
datareport.show

Answer 2

有
如果是rs.open "select * from data where format(time,'yyyy-mm-dd') between #2003/8/8# and now ",cn,adopendynamic,adlockoptimistic
却能出现正确的纪录。