codice:
'questo ti estrae tutti i record che iniziano con il testo impostato
Private Sub Text1_Change() 
strCerca = Me.Text1.Text 
lung = len(trim(strCerca))
Rs.Open ("SELECT * FROM Articoli WHERE mid(Descizione, 1, len) ='" & strCerca & "'") 
Set DataGrid1.DataSource = Rs 
End Sub
codice:
'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
Non li ho provato spero di non aver sbagliato, fammi sapere.
Ciao