Avevo copiato il codice e dimenticato il len che non serve :

codice:
Private Sub Text1_Change() 
strCerca = Me.Text1.Text 
'lung = len(trim(strCerca)) 
If Rs.State = 1 Then Rs.Close
Rs.Open ("SELECT * FROM Articoli WHERE (Descizione >='" & strCerca & "')") 
Set DataGrid1.DataSource = Rs 
End Sub
Per quanto riguarda la close, la devi fare ogni volta.

Ciao