Appice2

Stringa = "D'"
Data1.RecordSource = "select * from anagra " & _
"where RagioneSociale >= """ & Stringa & """"
Data1.Refresh