Access - Ayuda con INSERT INTO

Private Sub DIAS_B_AfterUpdate()

Dim dbs As Database

Dim mr As Recordset

Dim mirow As String

Dim fb, fa As Date

Dim pk As Integer

pk = Me.ID.Value

Set dbs = CurrentDb

mirow = "select * from [ABSENTISMO] where NIF= & Me.NIF& And ID = " & pk

Set mr = dbs.OpenRecordset("select * from ABSENTISMO")

fb = Me.F_BAJA.Value

If IsNull(fb) Then Exit Sub

If fb Then

    If IsNull(Me.F_ALTA) Then

        mr.MoveLast

        pk = mr!ID.Value

        mr.AddNew

        mr!NIF = Me.NIF.Value

        mr!APELLIDO1 = Me.APELLIDO1.Value

        mr!APELLIDO2 = Me.APELLIDO2.Value

        mr!NOMBRE = Me.NOMBRE.Value

        mr!ID_TRABAJADOR = Me.ID_TRABAJADOR.Value

        mr!ID_EMPRESA = Me.ID_EMPRESA.Value

        mr!DPTO = Me.DPTO.Value

        mr!AREA = Me.AREA.Value

        mr!T_CONT = Me.T_CONT.Value

        mr!FECHA = Me.FECHA.Value

        mr!N_CONT = Me.N_CONT.Value

        mr!BAJA = Me.BAJA.Value

        mr!IN_ITIN = Me.IN_ITIN.Value

        mr!F_BAJA = Me.F_BAJA.Value

        mr!TIPO_LES = Me.TIPO_LES.Value

        mr!ZONA_LES = Me.ZONA_LES.Value

        mr!F_CONTACT = Me.F_CONTACT.Value

        mr!RECAIDA = Me.RECAIDA.Value

        mr!OBSV = Me.OBSV.Value

        mr!ID = pk + 1

        mr.Update

        mr.Close

        Set mr = Nothing

    End If

End If

End Sub