Visual Basic - ACTUALIZACION DE REGISTRO EN ADO

tengo este codigo pero no se cual es el problema que no se actuliza en la base de datos.

El error es despues ADDNEW

If rs.RecordCount > 0 Then
rs.MoveFirst
rs.Seek Array(txtArti.Text)
End If

If Not rs.EOF Then
rs!codigo = Val(txtArti.Text)
rs!costo = Val(txtCo.Text)
rs!fechacomp = txtfeCo.Text
rs!costofi = Val(TxtFinal.Text)
rs!cata = Val(txtCata.Text)
rs!fechaentrada = txtFeEn.Text
rs.Update
Else
rs.AddNew
rs!codigo = Val(txtArti.Text)
rs!costo = Val(txtCo.Text)
rs!fechacomp = txtfeCo.Text
rs!costofi = Val(TxtFinal.Text)
rs!cata = Val(txtCata.Text)
rs!fechaentrada = txtFeEn.Text
rs.Update
End If

End Sub

Despues de este codigo recibo el ERROR en esta
rs!costo = Val(txtCo.Text)
aquí me dice que QUE NO SE ENCONTRO EL ELEMENO EN LA COLECCION QUE CORRESPONDE CON EL NOMBRE O EL ORDINAL PERDIDO.

si alguien puede ayudarme estaré muy agradecido,

gracias
Espejo

Hola
Creo que estas usando matriz de controles y estas invocando a un indice que no esta dentro de la matriz o en todo caso estas invocando a un control que no existe o tiene nombre distinto.
Verifica eso y creo que se solucionarà tu problema.

Atentamente,

Wilfredo