MMM, puedes poner un campo autonumerico y te olvidas de recorrer, pero si de todos modos lo quieres hacer es una mescla
primero traers los datos llenas un dataset
despues lo recorres
Código vb:
Ver originaldim cnx as new oledb.oledbconextion("")
dim dt as new oledb.oledbdatadapter("Select algo",cnx)
dim ds as new dataset
dt.fill(ds)
for each dtr as datarow in ds.tables(0).rows
dim cmd as new oledb.oledbcommand("Update tabla set campo = "& dtr("CAMPO") &" where Campo = "& dtr("Campo") )
cnx.open
cmd.executenonquery
cnx.close
next