[VB6] Query su evento Text_Change per ricerca incrementale

[Antagonista]

Salve ragazzi,
volevo sapere come fare a ricercare un record con select su un campo chiamato codice man mano che scrivo il numero nel campo di testo Text1 collegato al campo codice.
Con text_change non riesco al 100%
il codice che ho inserito è questo:
Private Sub Form_Load()
mioado2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=magol.mdb;Mode=ReadWrite;Persist Security Info=False"
End Sub

Private Sub Text1_change()
SQL = "SELECT * FROM inseriprod where codice = '" & Text1.Text & "'"
mioado2.RecordSource = SQL
mioado2.Refresh
End Sub

Se nel db ho un codice da cercare a una cifra e la scrivo nel campo del form, tutto ok.
Se il codice da cercare è 5467 e scrivo 5 non mi fa scrivere nient'altro.

Grazie 1000

[alka]

Tralascio il problema che hai descritto perché, a mio parere, non si tratta di una buona soluzione: eseguire una query ogni volta che si modifica il contenuto della casella di testo è senz'altro un'operazione tediosa... immagina di avere tanti record, inserendo carattere per carattere il tempo impiegato dalla query di ricerca renderebbe di fatto inutilizzabile l'applicazione.

Meglio pensare ad un pulsante che avvia la ricerca quando finito, oppure avviarla quando la casella di testo perde il focus, oppure ancora usare un sistema "a timer" lanciando la query quando l'utente rimane per qualche istante senza premere nulla, ma è già una soluzione al limite.

Ciao!

[Antagonista]

Grazie 1000, accetto volentieri il consiglio.