Visual Basic - AYUDA!! ERROR VB AL INSERTAR UN REGISTRO

Hola

Quisiera ver si me podrían apoyar ya que al intentar usar la función de addnew nadamas no me envía ningún error
pero al revisar la base no me lo insertar

Cabe mencionar que la base esta en Access .accdb

que será?

Anexo código

Set Inserta_Registros = New ADODB.Recordset
Set Inserta_Historico = New ADODB.Recordset

Inserta_Registros.Open _
"SELECT * FROM detalle_movimientos_vigentes ", Conexion_Operaciones, adOpenDynamic, adLockPessimistic

Inserta_Historico.Open _
"SELECT * FROM Historico_Movimientos_Vigentes ", Conexion_Operaciones, adOpenDynamic, adLockPessimistic

Me.Barra_Proceso.Value = 0

Me.Barra_Proceso.Max = 2

Me.Barra_Proceso.Visible = True

Me.Lbl_Progreso.Visible = True

Do While Me.Barra_Proceso.Value <= 1

If Me.Barra_Proceso.Value = 0 Then

With Inserta_Registros

.AddNew Array("Llave", "Folio_Lockton", "Consecutivo", "Grupo", _
"Contratante", "Poliza", "Ramo", "Cobertura", "Subgrupo", _
"Categoria", "Aseguradora", "Tipo_Movimiento", "No_Empleado", _
"Certificado", "Nombre_Titular", "Parentesco", "Apellido_Paterno", _
"Apellido_Materno", "Nombre_1", "Nombre_2", "Sexo", "Fecha_Nacimiento", _
"Fecha_Movimiento", "Fecha_Antiguedad", "Dice", "Debe_Decir", "Estatus", _
"Asesor", "Observaciones_Carga"), _
_
Array( _
Inserta_registroOK.Llave, Inserta_registroOK.Folio_Lockton, Inserta_registroOK.Consecutivo, _
Inserta_registroOK.Grupo, Inserta_registroOK.Contratante, Inserta_registroOK.Poliza, Inserta_registroOK.Ramo, _
Inserta_registroOK.Cobertura, Inserta_registroOK.Subgrupo, Inserta_registroOK.Categoria, Inserta_registroOK.Aseguradora, Inserta_registroOK.Tipo_Movimiento, _
Inserta_registroOK.No_Empleado, Inserta_registroOK.Certificado, Inserta_registroOK.Nombre_Titular, Inserta_registroOK.Parentesco, Inserta_registroOK.Ape_Pat, _
Inserta_registroOK.Ape_Mat, Inserta_registroOK.Nombre_Uno, Inserta_registroOK.Nombre_Dos, Inserta_registroOK.Sexo, Format(Inserta_registroOK.Fec_Nac, "dd/mm/yyyy"), _
Format(Inserta_registroOK.Fec_Mov, "dd/mm/yyyy"), Format(Inserta_registroOK.Fec_Antiguedad, "dd/mm/yyyy"), Inserta_registroOK.Dice, Inserta_registroOK.DebeDecir, Inserta_registroOK.Estatus, _
Inserta_registroOK.Asesor, Inserta_registroOK.Observaciones)

.Update

.Close

Me.Lbl_Progreso.Caption = "Procesado el 50%"

End With

Else

With Inserta_Historico

.AddNew
.Fields!Llave = "llave001"
.Fields!Folio_Lockton = "002dd"
.Fields!Complemento = 1
.Fields!fecha = Format(Now(), "dd/mm/yyyy")
.Fields!Estatus = "angel"
.Fields!Usuario_Mod = "angel"
.Update

Me.Lbl_Progreso.Caption = "Procesado el 100%"

End With

End If

Me.Barra_Proceso.Value = Me.Barra_Proceso.Value + 1

Loop

MsgBox _
Prompt:="Registro grabado correctamente", _
Buttons:=vbInformation, _
Title:="Registro Insertado"

Me.Lbl_Progreso.Visible = False

Me.Barra_Proceso.Visible = False

Me.Lbl_Progreso.Caption = ""

Me.Barra_Proceso.Value = 0

End If

End If