Primo: perche' il ciclo da 0 a 5 se i valori sono negli elementi da 1 a 5 ?

Secondo: se tu scrivi N(i) = i + 1 stai modificando il contenuto degli elementi del vettore e quindi il 72 non c'e' piu' ...

Terzo: perche' non lavori direttamente con il vettore ?

In pratica ...

codice:
Dim N(1 To 5) As Integer
Dim i as Integer

For i = 1 To 5
   N(i) = adoPrimaryRS(i)
   If N(i) = 72 Then
     Prv.Text = N(i) 
   End If
Next