Visual Basic - Error 3421 en tiempo de ejecución... "Error de con

Hola a todos...

Al tratar de guardar un nuevo registro me arroja el error 3421, utilizo Acces como base de datos, la línea en la que se genera el error es la marcada con asteriscos :

If Command(0).Enabled Then
BusReg Tabla, Indice, Combo1
If Not MiData.Recordset.NoMatch Then: MsgBox "El Registro " & Combo1.Text & " ya existe", vbExclamation: Exit Sub
MiData.Recordset.AddNew
MiData.Recordset(0) = Combo1
For N = 0 To Text.Count - 1

*******>>>>> MiData.Recordset(N + 1) = Text(N)
Next N
MiData.Recordset.Update
Combo1.AddItem Combo1
Set Lista = ListView1.ListItems.Add(, , Combo1)
Lista.SubItems(1) = Text(0)
MsgBox "El Registro Fue Agregado", vbInformation
End If

Agradesco la ayuda q me puedan brindar.

Saludos

Jaime
Venezuela

Marca el error porque tu registro aun no se inserta en la base de datos. Usa la instrucción después del .Update, Tal vez sea necesario eliminar el N+1

Hice los cambios que me sugieres pero se mantiene el error o aparece otro indicandome q uso el .update sin el .edit o el .addnew, lo q sucede con el N+1 es q esa línea es justamente la que me inserta los campos en la tabla, es decir a cada text en el formulario le asigno un valor indice que luego es grabado mediante el for en cada campo de la tabla, en el mismo orden.

MiData.Recordset.AddNew
MiData.Recordset(0) = Combo1
For N = 0 To Text.Count - 1

MiData.Recordset(N + 1) = Text(N)

Next N
MiData.Recordset.Update