te sirve con Split????
Código PHP:
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("mibd.mdb")
sql = "SELECT * FROM prod1"
Rs.Open sql, oConn, 3, 1
codigo="";
precio="";
Do While not RS.EOF
codigo = codigo & "-" & RS("codigo")
precio = precio & "-" & RS("precio")
RS.MoveNext
Loop
ArrCodigo=Split(codigo,"-")
ArrPrecio=Split(precio,"-")
For i=Lbound(ArrCodigo) to Ubound(ArrCodigo)
sql2 = "UPDATE prod2 SET precio="&ArrPrecio(i)&" where codigo="&ArrCodigo(i)&" "
oConn.Execute sql2
Next
....
....