Access - Insertar en 2 tablas

Hola,
tengo una tabla con datos de personas y otra tabla con datos de citas que hacen las personas, ambas relacionadas mediante el campo ID_Persona.

Estoy haciendo un formulario para insertar las citas y quería que si el autor de la cita no se encontrara en la tabla persona se insertase en ella primero y luego ya quedaran relacionadas la cita con la persona.

Creo que con un ejemplo en VB (porque imagino que habrá que programarlo) me podría valer

Muchas gracias!!!

Te paso un ejemplo a tu mail.
Para los demas el codigo es este.

Private Sub Apellido_BeforeUpdate(cancel As Integer)

Dim base As DAO.Database
Dim tabla As DAO.Recordset
Dim tabla2 As DAO.Recordset
Dim Autor As String

Set base = CurrentDb
Set tabla2 = base.OpenRecordset("Persona", dbOpenDynaset)

Autor = Apellido.Value
tabla2.MoveFirst
tabla2.FindFirst ("Apellido='" & Autor & "'")
If tabla2.NoMatch Then
tabla2.AddNew
tabla2.Update
tabla2.MoveLast
tabla2.Edit
tabla2.Fields("Apellido").Value = Autor
tabla2.Update
tabla2.Requery
End If

End Sub

Saludos

Rodolfo