Bueno despues de varios intentos ya pude realizar lo que queria, me faltan agregar unas cosas, pero ya logre entender lo que me estaba haciendo, bueno no soy experto pero el codigo ya me hace lo que quiero a la perfección
Así quedo lo comparto por si a alguien le sirve
<%
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 exi1"
Rs.Open sql, oConn, 3, 1
Do While not RS.EOF
codigo1 = RS("codigo")
precio1 = RS("precio1")
Set RS2 = Server.CreateObject ("ADODB.RecordSet")
sql2 = "SELECT * FROM exi2"
RS2.Open sql2, oConn, 3, 1
Do While not RS2.EOF
codigo2 = RS2("codigo")
precio2 = RS2("precio2")
'dale un update al precio2 (el precio de la tabla 1 ponlo en la tabla 2)
sql2 = "UPDATE exi2 SET precio2="&precio1&" where codigo="&codigo1&" "
oConn.Execute sql2
RS2.MoveNext
Loop
RS.MoveNext
Loop
RS2.Close
Set RS2 = nothing
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
Response.Write "cambios realizados"
%>