Visual Basic - problema agregar items basedatos

hola, tengo un problema con respecto a una base de datos "access 97" en visualbasic6.
Ya tengo la base de datos ligada a los textbox, y necesito agregar y eliminar items a la misma.
al presionar el boton guardar me aparece el siguiente error:
"esta accion fue cancelada por el objeto asociado"
el codigo que tengo en boton guardar es el siguiente:

private sub command1click()
data1.recordset.addnew

data1.recordset.fields("codigo")= text1.text
data1.recordset.fields("denominacion")= text2.text
data1.recordset.fields("almacen")= text3.text
data1.recordset.fields("cantidad")= text4.text
data1.recordset.fields("pvp")=text5.text

data1.recordset.update

end if

si me podeis poner un codigo de ejmplo os lo agradeceria porque no tengo mucha idea
todavia de programacion y me pierdo sobre todo con los conceptos.

muchas gracias.

Ver si este link te sirve

http://support.microsoft.com/kb/550676/es