Con un ciclo for each

Dim dt As DataTable
Dim dr As DataRow

For Each dr In dt.Rows

Next

Fammi sapere
Ciao
K