aiuto conversione funzione da ASP

[legal-x]

Salve a tutti,

mi servirebbe convertire questa funzione in VB.NET CON ADO:

Set conn_reorder=Server.CreateObject("ADODB.Connection ")
conn_reorder.open db_conn
sql_order = "SELECT * FROM MIA TAB WHERE id<>1 ORDER By ordine ASC"

Set rs_order=Server.CreateObject("adodb.recordset")
rs_order.Open sql_order,conn_reorder,3,3,1
ordine=1

while not rs_order.eof
ordine=ordine+1
rs_order("ordine")=ordine
rs_order.update()
rs_order.movenext
wend

rs_order.close()
set rs_order = nothing
conn_reorder.close()
set conn_reorder = nothing

mi aiutate ?

[legal-x]

nessuno ?

Non riesco a capire, penso che la strada giusta sia:

For each CurRow as DataRow in ordine_dataset.Tables(0).Rows

ordine+=1
IMPOSTARE IL NUOVO VALORE NEL CAMPO

Next

Ma questo lo faccio nel dataset, come scrivo poi nel DB Access ?