Réinitialiser une zone de texte en VB 6

Bonjour à tous,

S'il vous plait, j'ai une zone de texte là où je doit saisir une combinaison de numéros à chaque fois que je souhaiterai chercher un dossier de ma base.
Le code fonctionne très bien, le problème que je veux une ligne de code qui me permettrai de réinitialiser cette zone de texte après chaque recherche ( c'est à dire je ne serai plus obligé d"effacer cette combinaison de chiffre pour y saisir une autre) qui remet la zone de texte vide aprés chaque fin de recherche.

Voilà le code de ma zone de texte:

Private Sub txtDRechDossier_Change()
Me.cmdSearchDerchos.Default = True
End Sub

Et à ce niveau de cette partie de mon code que je voudrai insérer la lingne de commande que souhaite avoir:


If txtDRechDossier.Text <> "" Then
i = i + 1
ReDim Preserve sCriteria(i)
If Len(txtDRechDossier.Text) > 8 Then 'douchette
sCriteria(i) = "Num_Dossier = '" + Right(txtDRechDossier.Text, 8) + "'"
Else
sCriteria(i) = "Num_Dossier LIKE '" + txtDRechDossier.Text + "%'"
End If
End If


MERCI POUR VOTRE COLLABORATION,