Visual Basic - Ayuda.... Por favor

Saludos mi problema es el siguiente estoy haciendo un minisistema, en el cual hay un recibo tengo 2 adodc (1 para llamar al trabajador que esta atendiendo, y el otro para llamar los articulos) hasta ahi vamos bien mando a imprimir el formulario mediante Me.printform, vamos bien lo que quiero es que al momento de que salgan los productos se descuentes de mi tabla inventario ubicada en la base de datos llamado datos.mdb yo mando a llamar los articulos por textbox en el recibo tengo 9 textbox ( las clumnas se llaman partida, descripcion, code, y cantidad) los textbox de partida mandan a llabar los articulos(txtclave hasta txtclave 9) y al igual en cantidad tengo (txtcant1 hasta txtcant9)

Adodc3.Recordset.Filter "Partida='"& trim(txtclave1) & "'"
Adodc3.Recordsert.Fields("Cantidad")=Adodc3.Recordsert.Fields("Cantidad")-val(txtCan1.text)
adodc3.Recorsdset.Update

Uso estas lineas de codigo para tratar de actualizar al momento de estar haciendo la hoja de remision pero me manda USO NO VALIDO DE LA PROPIEDAD... en que estoy mal ayudenme por favor.. soy nuevo en esto y pues alguna ves alguien los ayudo por favor...
saludos y espero me puedan ayudar