Per rispondere alla tua domanda: hai provato a eseguire passo-passo il codice per capire se l'algoritmo funziona correttamente? Io ho qualche dubbio su questa riga:
codice:
If objDataReader("data") = tvASSEGNAZIONI.Nodes(i - 1).Text Then