Ciao a tutti.
Ho questo loop e a fine record vorrei andare a capo per dare una lettura piu' bella ma non va'

Seleziona = "SELECT * FROM .........
Dim controlla As New OleDbCommand(Seleziona, connessione)
Dim Datareader As OleDbDataReader
Datareader = controlla.ExecuteReader
Do While Datareader.Read
lblDescrizione.Text += Datareader.Item("ID") & ") " & Datareader.Item("cmp1") & " -- " & Datareader.Item("cmp2") & Datareader.Item("Descrizione") & System.Environment.NewLine
loop
Catch ex As Exception ecc ecc

Ho provato ad usare Chr(13) & Chr(19) ma nella label vedo tutto continuato
Come posso fare?