Ayuda con la creación de registros y relaciones en una base de datos Microsoft Access

Buenos días,
Primero de todo gracias por vuestra atención.
Seguramente es algo sencillo pero llevo rato buscando y no lo encuentro.
Básicamente lo que quiero es que cuando se crea un registro nuevo a "regants" se cree automáticamente un registro en "rebuts" con la relación del id de regants.
El código que tengo es este:
Private Sub Form_AfterInsert() 
Dim r As DAO.Recordset 
   Set r = CurrentDb.OpenRecordset("select * from rebuts", dbOpenDynaset) 
    r.AddNew 
    idremesa = 5 
    idregant = Me.idregant 
    r.Update 
End Sub 
El error que me sale es el de "no se puede asignar un valor a este objeto" apuntando a idregant, porque es la clave enlazada con clave principal del registro que se ha creado.
Si quito la linia "idregant =me.idregant" me dice que necesita dar un valor en la clave principal, logicamente. 
A ver si me podéis ayudar.
Gracias de nuevo.