Visual Basic - busqueda y edición

Hola,
Me pasa lo siguiente:
Hago una búsqueda según un criterio ingresado por teclado.
Le digo que si lo encuentra edite el campo, y no me sale. Primero lo encuentra, pero cuando diga que edita, edita el primer registro de la tabla, cómo hago para decirle que edite el registro encontrado según el criterio??
Yo hice lo siguiente:

criterio = "codart like '*" & buscado & "*'"
Data1.Recordset.FindFirst (criterio)
If Not Data1.Recordset.NoMatch Then
Beep
MsgBox ("código erróneo")

Else
Data2.Recordset.Update
Data1.Recordset.FindFirst (criterio)
actual = Data1.Recordset.Fields("existencia") /****/ acá me da del primer registro y todo lo siguiente lo hace en base a él /****/

suma = actual + cantidad
Data1.Recordset.Edit
Data1.Recordset.Fields("existencia") = suma
Data1.Recordset.Update
End if

Gracias!!

epsremos que te conteste lolito