VB 数据库查询，弹出missing operand错误

Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 节点温湿度信息表 where 日期=#" & DTPicker1.Value & "#"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
执行控件操作时弹出missing operand错误

 Set DataGrid1.DataSource = Adodc1.Recordset