codice:
 Dim app_anno As Integer = Microsoft.VisualBasic.Right(Year(dpCalcAumento.Value), 4)
            Dim app_mese As Integer = Microsoft.VisualBasic.Left(Month(dpCalcAumento.Value), 2)
            Sql = "SELECT percentuale FROM Indice_Istat WHERE mese = " & CInt(app_mese) & " AND anno = " & CInt(app_anno) & " AND calcolato = false;"
            DR = objFunzioni.fnzExecuteRead(Sql)
            Dim percentuale_indiceIstat As Double = DR("percentuale")        
     DR.Close()
Sfortunatamente nella parte in neretta mi dice: Nessun dato nella colonna o riga

Però il record esiste veramente perchè ho fatto la prova con il db e la query funziona, quindi anche il nome del campo è giusto! il campo è un numerico (access) non capisco perchè non funziona!!!!
In fase di debug ho testato dr.FieldCount e mi restituisce 1. Non riesco a capire qual'è il problema!