'questo ti estrae tutti i record con condizione maggiore di/iniziano con
Private Sub Text1_Change()
strCerca = Me.Text1.Text
lung = len(trim(strCerca))
Rs.Open ("SELECT * FROM Articoli WHERE (Descizione >='" & strCerca & "')")
Set DataGrid1.DataSource = Rs
End Sub

la variabile lung non la utilizi dopo, penso de rimpiazare strCerca nel commando SQL, ma così dice: Errore di sintasi(operatore mancante)nell'espressione della query (Descrizione =>'1')

poi un'altro problema è che devo chiudere e riaprire il recordset ogni volta che scrivo una lettera.
Grazie mille.
Saludos!