Visual Basic - AYUDA URGENTE CON WHILE

Hola

Tengo la siguiente instruccion para un bucle

while not data2.recordset.eof and data2.recordset.fields("ref_art")=val(cod_product.text)

el problema esta en que cuando me llega al ultimo registro de la BD revienta la aplicacion, y deja el proceso a medio terminar, pero quiero que termine el proceso para el ultimo registro de la BD.
He probado a meter 1 registro por debajo del ultimo pero aun no funciona(ya se que eso es una chapuza, pero...)

¿que otra condicion puedo poner para el bucle?

Gracias por anticipado

Visual Basic no tiene evaluación diferida por lo que tendrías que partir ese bucle en dos:

while not data2.recordset.eof
while not data2.recordset.eof and data2.recordset.fields("ref_art")=val(cod_product.text)
wend
wend