DTPicker

[scorjam]

Hola, estoy intentando crear una consulta, para fechas, en un pequeño sistema creado en vb6, en el cual al momento de seleccionar una fecha me muestre los reportes de actividades de ese dia, en un datagrid e intentado varias maneras la ultima que tengo es esta;

Private Sub Command2_Click()
Data1.RecordSource = "SELECT * FROM GOE WHERE FECHA = #" & Format(dtpicker1, "mm/dd/yyyy") & "#"
End Sub

pero no me arroga ningun resultado, agradezco todo tipo de ayuda.