Elenco record fino alla fine

[osgb]

Ho questo codice:

            Dim cmdLoginA As New OleDbCommand("SELECT * FROM Utenti WHERE [Livello] = '5'", ConnLoginA)
            Dim drA As OleDbDataReader = cmdLoginA.ExecuteReader
            While drA.Read()
                'Scrivo nelle stringhe
                NomeUtente = drA("nome")
                CognomeUtente = drA("cognome")
                IDUtenteX = drA("code")
                'Imposto i valori nella pagina aspx
                Label1.Text = (CognomeUtente & " " & NomeUtente & " - " & IDUtenteX)
            End While 

Visualizzo in Label1.Text 1 solo valore.
Avrei la necessità di visualizzare tutti gli utenti con Livello = 5 (come da select).
Con ASP usavo EOF, ma qui non saprei come e dove metterlo.

Grazie mille.