Visual Basic - Problema con edit

Hola, compañeros. Tengo el siguiente código:

Set articulo1 = OpenDatabase(capp & "basedatosarticulos.mdb")

Set articulo2 = articulo1.OpenRecordset("tabla1", , vbopendynaset)

If articulo2!articulo = Text1.Text Then
articulo2.Edit

articulo2!articulo = Text1.Text
articulo2!pvd = Text3.Text
articulo2!proveedor = Text5.Text
articulo2!margen = Text6.Text
articulo2!beneficio = Text7.Text
articulo2!pvp = Text2.Text
articulo2!pvdtotal = Text4.Text

articulo2.Update

Else
articulo2.AddNew

articulo2!articulo = Text1.Text
articulo2!pvd = Text3.Text
articulo2!proveedor = Text5.Text
articulo2!margen = Text6.Text
articulo2!beneficio = Text7.Text
articulo2!pvp = Text2.Text
articulo2!pvdtotal = Text4.Text
articulo2.Update

End If

El problema está en que cuando quiero insertar un nuevo artículo lo hace correctamente, pero si lo que quiero es modificar algún campo,únicamente me lo hace bien el primer registro de la tabla, si es algun otro registro, me lo inserta de nuevo, pero no me elimina el antiguo. Agradezco de antemano vuestra ayuda

Eso es porque tu codigo no está hecho para que recorra toda la tabla (o sea el recordset), por eso siempre toma solo el primer registro y lo edita.

Por ejemplo, si tu recordset tiene 20 registros, solo editará siempre el primero porque no le estas diciendo al codigo que recorra la tabla (recordset. movenext) desde el primer registro al ultimo, tambien para esos necesitas un ciclo que puede ser for-next o do-loop
hasta luego.

Hola, agradezco tu atención, pero no entiendo muy bien lo que quieres decir. Es que estoy empezando en esto y me esta costando mucho.
¿podrías describirme mas o menos el código correcto?
Vuelvo a agradecer vuestra ayuda y espero poder ayudar a otros cuando sepa un poco más...