dim dbdata as new "whatever".Command
dim dbdata2 as new "whatever".Command
dim reader as "whatever".Reader
 
dbdata.commandtext = "SELECT ......."
reader = dbdata.executereader
 
while reader.read = true
 spalte1 = reader.item("Spalte")
 ....
 
 dbdata2.commandtext = "UPDATE .....
 dbdata2.executenonquery
end while
reader.close