ho cambiato la seguente:

codice:
        While read.Read()
            Li = lsvVisualizza2.Items.Add(read("Id"))
            Li.SubItems.Add(read("Nome"))
            Li.SubItems.Add(read("Cognome"))
            Li.SubItems.Add(read("Telefono"))
            
        End While
ma mi restituisce solo Id
codice:
0 1 2 3 4 5...]
un aiuto