Update de dos tablas

[El_Metallick]

aaa ok... entonces quedaria algo asi:

Código:

sql1 = "Select * From  Provincia where id = " & id & ""
Set rs = Conn.Execute(sql1)

codigo_prov = " & rs("codigo_prov") & "

select case codigo_prov
   case 01
      sql2 = "Update Data set provincia = '01' where provincia = 'Lima'"
   case 02
      sql2 = "Update Data set provincia = '02' where provincia = 'Callao'"
   ...
end select

Set rs = Conn.Execute(sql2)

saludos