Problema listview

[davide1111]

Salve a tutti!
Avrei un piccolo problema con un listview. Sto cercando di selezionare da una tabella dei dati e riportarli dentro la listview, ma quando leggo i valori si vedono tutti sulla stessa riga e le colonne non si vedono bene. Mi potreste aiutare a formattarla?
Ecco qui il codice:

Public Sub showrecord()

Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand("SELECT * FROM gestione_file", conn)
Dim leggi As SqlClient.SqlDataReader = cmd.ExecuteReader()

dati.Columns.Add("Nome Server").Width = 100
dati.Columns.Add("Percorso Server").Width = 100
dati.Columns.Add("Tipo Evento").Width = 100
dati.Columns.Add("Giorno Evento").Width = 100
dati.Columns.Add("Percorso Backup").Width = 100



If leggi.HasRows Then

While leggi.Read()



If (leggi.Item(1) IsNot DBNull.Value) Then
dati.Items.Add(leggi.Item(1))

dati.Items.Add(leggi.Item(2))
dati.Items.Add(leggi.Item(2))
dati.Items.Add(leggi.Item(4))
dati.Items.Add(leggi.Item(5))



End If
End While
Else
MsgBox("Non ci sono record")
End If

leggi.Close()

Grazie!


'Next



End Sub