[VB2010] Query sql

[Skyscraper84]

 
       Dim sql_stato As String = "select * from StatoLettura where Descrizione = '" & ListBox1.SelectedItem & "'"

        MsgBox(sql_stato)
        Dim cmd_stato As New OleDbCommand(sql_stato, Cn)
        Dim dr_stato As OleDbDataReader = cmd_stato.ExecuteReader
        StatoLettura = dr_stato("Codice")

alla riga StatoLettura = dr_stato("Codice")
mi da l'errore "Nessun dato esistente per la riga/colonna."

Non capisco... ho creato la msgbox proprio per controllare ma è tt ok

Idee?

Grazie
Ciao