alla riga StatoLettura = dr_stato("Codice")codice: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")
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