如何在DataGrid里只显示当天的数据

用DTPicker控件，使数据库里的数据在DataGrid里只显示当天的数据。。。

我用的这下面的代码，但是软件一打开DataGrid里就显示所有的数据，一定要改变日期才能显示当天的数据，

我是个初学者，请各位大虾指点指点，如何是软件一打开就显示当天是数据？


Private Sub DTPicker1_Change()
On Error Resume Next
Dim provider As String
Dim datasource As String
provider = "provider=Microsoft.jet.oledb.4.0"
datasource = "data source=" & App.Path & "\检验数据.mdb"

Dim sql As String
s = DTPicker1.Value
sql = "select * from 检验数据 where 报告日期='" & Trim(s) & "' "

With Adodc1
.Mode = adModeReadWrite
.ConnectionString = provider & ";" & datasource
.CommandType = adCmdText
.RecordSource = sql
.Refresh
End With
End Sub 把代码放到

Private Sub Form_Load()



End Sub

里面试试 你把程序放在DTPicker1_Change里当然不行了，这是改变DTPicker1才能触发的事件，你可以用
privata sub form_load()
  代码
end sub
privata sub button1_click()
  代码
end sub Private Sub DTPicker1_CloseUp()
好像也可以

引用 2 楼 ly3506 的回复:

你把程序放在DTPicker1_Change里当然不行了，这是改变DTPicker1才能触发的事件，你可以用
privata sub form_load()
  代码
end sub
privata sub button1_click()
  代码
end sub

我建议
在打开窗口时就加载一次查询数据库，并且查询条件里加上 按时间查的 WHERE 数据库时间字段=date 
这样保证 可以

补充：VB ,  数据库(包含打印，安装，报表)