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

[Insomnia]

Hola

Utiliza la propiedad fields del recordset en lugar del nombre del campo, de esa forma puedes hacer referencia a la situación que ocupa el campo en la bd, ed,

Código:

reg.Fields(i)

De esta forma hace referencia al campo i que tienes en la bd.

--Saludos--

[reparo_pc]

muchas gracias....

[jcastrob1980]

Las bases de datos numeran sus campos por lo general de 0,1,2,3...n
posiblemente por ahi esta el error.
en vez de hacer for i donde i=1 haz i=0

[reparo_pc]

ya lo he solucionado de esta manera....


For i = 1 To (cbcantidad.Text)
i = DataCombo1(i).index
With adoingredientes
a = "ingrediente" & i
b = "cantidad" & i
ingrediente = (DataCombo1(i - 1).Text)
cantidad = (txtcantidad(i - 1).Text)
If txtcantidad(i).Text = "" Or IsNull(txtcantidad(i).Text) Then txtFields(i).Text = 0

adoingredientes.Fields(a) = ingrediente
adoingredientes.Fields(b) = cantidad
.Update
End With
Next

gracias