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