No puedo guardar un dato en Base de datos

[gasafonso]

Me da el error " No se encontro el elemento en esta coleccion "

mi codigo es :

Function GuardarVacunas()
For i = 1 To grillaVacunas.Rows - 1

dsVacunas.Recordset.AddNew
dsVacunas.Recordset!nombrevac = grillaVacunas.TextMatrix(i, 0)
dsVacunas.Recordset!proxvacuna = grillaVacunas.TextMatrix(i, 3)
dsVacunas.Recordset!fechaproxvac = grillaVacunas.TextMatrix(i, 2)
dsVacunas.Recordset!dias = grillaVacunas.TextMatrix(i, 5)
dsVacunas.Recordset!fechavac = grillaVacunas.TextMatrix(i, 1)
dsVacunas.Recordset!serie = grillaVacunas.TextMatrix(i, 4)
aca da error

dsVacunas.Recordset!codcliente = Val(txtCodigo.Text)
dsVacunas.Recordset!codmascota = Val(txtCodigoMasc.Text)
'dsVacunas.Recordset!comprobante = Format(txtNumero.Text, "00000")
dsVacunas.Recordset.Update
Next
End Function


muchas gracias y Felices fiestas

[culd]

Es sensillo, no encuentra el campo "codclient"...

Posiblemente al cargar la consulta inicial no cargaste ese campo.... Ó puede que no exista en la tabla...

Ese nomas es el problema


Ahhh, o sino controla el tipo de dato que es ese campo, con el tipo de dato que le esta sinsertando