Visual Basic - ayuda URGENTE porfavor

Hola:
tengo el siguiente codigo:

Private Sub cod_product_LostFocus()
Dim e, a, b As String
Dim x, k As Integer
k = 1
e = "ref_art like '*" & cod_product.Text & "*'"
Data1.Recordset.FindFirst e
k = 0
desc_product.Caption = Data1.Recordset.Fields("nom_art")
grupo.Caption = Data1.Recordset.Fields("smi_art")
Data2.RecordSource = "select sub_sub,nom_sub,uni_sub,prceu_art from falsub where ref_sub='" + cod_product.Text + "'"
Data2.Recordset.MoveFirst
x = 0
While Not Data2.Recordset.EOF
codhilo(x).Text = Data2.Recordset.Fields("sub_sub")
deschilo(x).Text = Data2.Recordset.Fields("nom_sub")
uni(x).Text = "Kg"
canthilo(x).Text = Data2.Recordset.Fields("uni_sub")
precihilo(x).Text = Data2.Recordset.Fields("prceu_art")
x = x + 1
Data2.Recordset.MoveNext
Wend
'MsgBox ("Producto no encontrado")
'cod_product.SetFocus
End Sub

Lo que deberia hacer es introducido el codigo de un producto en cod_product.text busca los componentes de ese producto, pero lo que hace es visualizar repetidamente los componentes del primer producto situado en la BD, no localiza el producto concreto y entra en un bucle infinito, cabe decir que un producto como mucho puede tener 5 componentes, y el codigo del producto en la BD esta en el campo ref_sub.
¿Sabria alguien aclararme esta duda?
Muchisimas gracias.