the source code is this:
Private Sub cmdcerca_Click()
Dim rstclienti As ADODB.Recordset
Set rstclienti = New ADODB.Recordset
rstclienti.Open "SELECT * FROM clienti WHERE ragsociale LIKE 'A%'", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
If rstclienti.RecordCount > 0 Then...