ayuda con recorset y campos

[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