[vb.net] iterare su record

[Beziel]

Ciao a tutti,

xkè non riesco ad ottenere il valore di un singolo record?

Dim cn As New MySqlConnection("database=hotel")
            cn.Open()
            Dim cmd As New MySqlCommand("select * from priv where controllo = ' 123456 ' ", cn)
            Dim dr As MySqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
            Dim ret As String = dr("username")
            MsgBox(ret)

mi da sempre un valore null eppure ho controllato il valore nel db è non è null