Originariamente inviato da raffaeu
HasRows non serve ad altro che informarti del fatto che il Reader ha ancora righe di dati da leggere. E' quindi logico che la funzione andrà messa all' interno del Ciclo While e non prima, visto che prima il Reader è ancora chiuso ...
Ciao, Raffaeu e grazie della risposta....

Io ancora non ne vengo a capo, dunque:

Dim cmd As New OleDb.OleDbCommand("SELECT FORNITORE FROM FORNITORI WHERE ID_FOR = '" & Item(1, rw).Value & "'", cn)
dr = cmd.ExecuteReader

Do While dr.Read
If dr.HasRows Then
Item(2, rw).Value = dr.Item("FORNITORE")
CurrentCell = Item(2, rw)
Return Me.ProcessRightKey(keyData)
dr.Close()
End If
Loop

Questo codice dovrebbe impedire che lo stato attivo si sposti sulla cella di indice 2 qualora non esistano record?
Ho inderito la condizione hasrows all'interno del ciclo do while.. loop, ma non si comporta come dovrebbe.

Grazie