Puedes hacer lo siguiente
Obtienes el proximo codigo de la tabla1
sql = "select nexval('tabla1_cod_seq') as codigo"
rs = con.execute(sql)
codigo = rs("codigo").value
sql = "insert into tabla1 values (" & codigo & ".....)"
con.execute(sql)
para cada detalle debes hacer.
sql = "insert into tabla2 values (" & codigo & ",....)"
fin