Ciao a tutti,
ho un problema con un breve codice che mi dovrebbe consentire di filtrare dei dati da un database in base ad una DATA (gg/mm/yy) e stampare un report con il contenuto senza il solito problema del refresh dei dati nel datareport.

Ho creato un DataEnvironment1 colegato al DB ed un command! con CommandText: Select * from Dbclient01 Where Data > ?

Nel Form1 ho messo un Button (Command1) con un TextBox.

Il codice del button (tratto da un articolo di Microsoft)è il seguente:

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

Il problema è che quando digito la data nella casella TextBox e faccio partire il codice del button mi esce:

Errore Run-Time 8551
Impossibile inserire il controllo TextBox1 in questa sezione

e si blocca su DataReport1.Refresh

Qualche anima Pia mi può dire il perchè?

Grazie in anticipo.