para manejar dos tabalas simultanemaente es necesario establecer dos RecordSet, si quieres actualizar 2 tablas seria algo asi
Código:
sql1 = "Update Provincia set departamento = 01, codigo_prov = 01 where id = " & id & "
Set rs = Conn.Execute(sql1)
...
sql2 = "Update Data set provincia = 'Lima' where id = " & id & "
Set rs = Conn.Execute(sql2)
no se si es eso lo que buscas... si no es asi no entendi loq ue quieres hacer... saludos