Meglio scrivere

For i = 0 To rs.Fields.Count-1