Visual Basic - pequeño problema

Hola

tenga la siguiente parte de codigo:

Data1.Recordset.AddNew
Data1.Recordset.Fields("producto") = WRef
coddatisa = "DAT02 like ' " & WRef & " ' "
Data2.Recordset.FindFirst coddatisa
cod = Data2.Recordset.Fields("DAT02")
codnuevo = "ref_art like ' " & Data2.Recordset.Fields("DAT01") & " ' "
Data3.Recordset.FindFirst codnuevo
Data1.Recordset.Fields("descripción") = Data3.Recordset.Fields("nom_art")
Data1.Recordset.Fields("cantidad") = cant
Data1.Recordset.Fields("precio") = precio
Data1.Recordset.Update

y la siguiente estructura de BD

DAT01 DAT02

01062 EN135TCCFXS53
01063 FR135TCCFS50
01063 135TCCFS50
01063 EN135TCCFS50
01064 FR135TCCFM50

el tema es que yo kiero buscar entre los registros de la derecha uno que puede estar en la posicion x, y cojer su correspondiente de la parte izquierda,para hacerlo corresponder con su igual en otra BD y cojer el nombre de producto que le corresponde, pero no se porque no me busca ese registro, y el puntero por alguna razon se me queda en el primer registro.

¿Sabe alguien a que se puede deber esto?

Gracias