anche io ho avuto lo stesso problema.....

prova a fare cosi:

Option Explicit

Private Sub Command1_Click()
Load DataEnvironment1
With DataEnvironment1
If .rsCommand1.State <> 0 Then .rsCommand1.Close
.Command1 CDate(Text1.Text)
End With
DataReport1.Refresh
If DataReport1.Visible = False Then DataReport1.Show
End Sub

e vai a vedere anche questa pagina qua....
http://support.microsoft.com/default...b;en-us;244779

ciaoooo ciao !!! :metallica