Insertar el mismo Id en dos tablas desde un formulario

[Foxm]

Ahí va el acertijo...
Tengo una tabla "Autores" (Id, Nombre) y dos más que son "Personas" (Id, cargo) y "Entidades" (Id, descripción). Los campos Id de estas dos últimas (numéricos)referencian al Id de Autores (autonumérico). Con esto hago que los autores solo sean persona o entidades (una especialización).

Para insertar una persona, tengo un formulario con dos campos: "Nombre" y "cargo", que inserta cada valor en la tabla correspondiente medinate dos INSERTS.

Ahora viene el problema...

¿¿Qué hago para que el Id que me inserta en "Autores" (campo autonumérico) me lo inserte también en el Id "Personas" (numérico)??

Si alguien lo sabe que me ayude, por favor... me estoy volviendo loco!!

[PMP]

Hola, prueba con esto:

Código:

<%
set oRs = Server.CreateObject("ADODB.Recordset")
oRs.ActiveConnection = (varEmpresas)
oRs.Source = "SELECT Id, Nombre FROM Autores"
oRs.CursorType = 1
oRs.LockType = 3
oRs.Open

'AGREGA UN NUEVO REGISTRO
oRs.AddNew
oRs("Nombre") = "Nombre de autor"
oRs.Update

'OBTIENE EL ID DEL REGISTRO RECIENTEMENTE INSERTADO
Dim Id_Autor
Id_Autor = oRs("id")

oRs.Close()
Set oRs = Nothing
%>