ayuda con recorset y campos

[reparo_pc]

hola tengo una base de datos con los campos ingrediente1,, ingrediente2, ingrediente3, ingrediente4, inggrediente5, .......ingrediente28
lo que quiero hacer es en un for.... next cuando grabo en el recordset



For i = 1 To 28
With adoingredientes
nombre = (DataCombo1(i).Text)
!ingrediente(i) = nombre
(aca es donde necesito la ayuda, quiero que el campo sea ingrediente1 y que sepa que es uno por que i = 1 )
entonces graba en el campo ingrediente 1 en el proximo for el valor de i = 2 entonces que grabe en el campo ingrediente 2 y asi para cada campo
End With
Next


si alguien puede ayudarme
gracias