Access - No funciona codigo

Tengo el siguiente codigo que lo que hace es insertar en una tabla la información que toma de una consulta.

Lo que sucede es que aparentemente ejecuta la instucción Agregar.Execute.
Pero no lo hace y entonces hay registros que si inserta y otros que no

With tabla
Do While Not .EOF
Texto = "PARAMETERS FINICIAL DateTime, FFINAL DateTime; " & _
"INSERT INTO NOVEDADES (IDNovedad,IDTipoDoc,NumDocumento,IDTipoPersona,DANE,Institucion,IDTipoNovedad,FechaInicio,FechaFin,IDArea,IDNivel,IDJornada,Sede,Observaciones,Usuario) " & _
"VALUES (" & ConsecutivoNovedad() & "," & .Fields("TipoDoc") & "," & .Fields("Documento") & "," & .Fields("TipoPer") & ",'" & .Fields("CodDANE") & "','" & .Fields("Colegio") & "','" & .Fields("Novedad") & "',[FINICIAL],[FFINAL],'" & .Fields("IDArea") & "'," & .Fields("IDNivel") & "," & .Fields("IDJornada") & ",'" & .Fields("Sede") & "','" & .Fields("Obs") & "','" & .Fields("Usu") & "')"

Set Agregar = DB.CreateQueryDef("", Texto)
Agregar.Parameters![FINICIAL] = .Fields("Inicio")
Agregar.Parameters![FFINAL] = .Fields("Fin")
Agregar.Execute
Resultado = Resultado + 1
.MoveNext

Como hago para que coloque todos los registros

Lo que sucede en los tres registros es que el campo sede va en blanco, como hago para decirle que cargue los datos asi esl campo venga vacia