Guardar registros en dos tablas

[redpos]

Normalmente cuando quiero controlar la insercion de datos utilizado DAO en vb6

Podrias utilizar esto

dim db as database
dim rs as recordset

set db=opendatabase('ruta de la base de datos')

set rs=db.openrecordset("Agenda",dbopensynaset)

rs.Addnew
rs!Fecha=textbox1(0)
.
.
.
.
rs!idpaciente=a lo que sea
CargaEnOtraTabla(valor del control para idpaciente)
.
.
.
rs.Update

es decir cuando llega el codigo a la insercion del dato para idpaciente, llamo a otro
procediemnto le paso el valor de idpaciente y lo guardo en otra tabla con un codigo similar a este.

Bueno ya sabras que para usar dao hay que agregar la referencia a Microsoft DAO 3.6 Object Library si es con Office 2000-2003

Por cierto he supuesto que la base de datos es Access, sino las cosas cambian un poco.

Espero que te sirva