Guardar registros en dos tablas

[redpos]

Puedes usar el modo del código que te deje puesto que el objeto ADODB.Recordset admite la funcion AddNew.

Set RecSQL = New ADODB.Recordset
RecSQL.Open "Agenda", BD, adOpenStatic, adLockOptimistic,adCmdTable

Una vez abierto el recordset

RecSQL.AddNew
RecSQL.Fields("Lo que sea")=me.Control
.
.
.
En el punto que quieras metes una llamada a otro procedimiento que inserta
en otra tabla pasandole el valor o los valores a insertar y en el procedimiento un codigo similar a este.
RecSQL.Update

No se si te Valdra yo lo hago asi para controlar mejor los campos que inserto puesto que con instrucciones sql tan lasrgas es facil equivocarse