tipo string non riesco a fare operazione

[cicapiscopoco]

ho trovato una soluzione ( dato che adesso funziona )

ho sostituito questa parte di codice

'ciclo prima data
While (dr.Read())
dati1.Text = dr("TagDescription")
datiVal1.Text = dr("TagValue")
End While
'ciclo seconda data
While (dr2.Read())
dati2.Text = dr2("TagDescription")
datiVal2.Text = dr2("TagValue")
End While
'ricavo consumo
consumo.Text = datiVal2.Text - datiVal1.Text

con questa

'ciclo prima data
        'While (dr.Read()) tolgo il ciclo tanto nn serve
        dr.Read()
        dati1.Text = dr("TagDescription")
        datiVal1.Text = CLng(dr("TagValue"))
        'End While
        'ciclo seconda data
        'While (dr2.Read())
        dr2.Read()
        dati2.Text = dr2("TagDescription")
        datiVal2.Text = CLng(dr2("TagValue"))
        'End While
        'conversione e assegnazione valori a 2 variabili
        Dim x, y
        x = CLng(datiVal1.Text)
        y = CLng(datiVal2.Text)
        'calcola consumo
        consumo.Text = (y - x)