Dim com2 As New OleDb.OleDbCommand()
        com2.Connection = con
        com2.CommandText = "SELECT * FROM ANAGRAFICA WHERE NOME='" & nome.Text & "' AND COGNOME = '" & TextBox10.Text & "' "
        Dim leggi2 As OleDb.OleDbDataReader = com2.ExecuteReader()
        While leggi2.Read()
            Indirizzo.Text = leggi2("INDIRIZZO")
            citta.Text = leggi2("CITTA")
            cap.Text = leggi2("CAP")
            prov.Text = leggi2("PROVINCIA")
            cell.Text = leggi2("CELLULARE")

        End While