Visual Basic - La operacion en pasos genero errores

Ese es el mensaje que me aparece cuando quiero actualizar varios campos de un registro con un valor. Los rs son correctos. Lo que no funciona es el bucle for s=6 to 9
Pretendo que los campos,que son del tipo decimal , desde el 6 hasta el 9 del registro se rellenen con un 7
For i = 1 To T_Mat_Ini
Apellido = Entrada.rsIni.Fields("Apellidos")
Nombre = Entrada.rsIni.Fields("Nombre")
Entrada.rsControl.AddNew
Entrada.rsControl.Fields("Orden") = i
Entrada.rsControl.Fields("Apellidos") = Apellido
Entrada.rsControl.Fields("Nombre") = Nombre
For s = 6 To 9
Nomcampo = Entrada.rsControl.Fields(s).Name
Entrada.rsControl.Fields.Item(Nomcampo) = 7
Next

Entrada.rsControl.Update
Entrada.rsIni.MoveNext
Next
End If


Help ..Gracias