OK, ce l'ho quasi fatta...

Private Sub Text1_Change()
Dim datiSQL As String

If Rs.State = 0 Then
strCerca = Me.Text1.Text
datiSQL = "SELECT * FROM Articoli WHERE Left(descrizione," & Len(strCerca) & ")='" & strCerca & "';"
Rs.Open (datiSQL)
Set DataGrid1.DataSource = Rs
Else
Rs.Close
strCerca = Me.Text1.Text
Rs.Open (datiSQL)
Set DataGrid1.DataSource = Rs
End If
End Sub

con questo codice funziona "quasi" benissimo... ora il problema è che comincia a cercare quando digiti 2 lettere...