Visual Basic - base de datos

Hola ya tengo el sistema de una base de datos solo que tengo una duda, se supone que en el boton de consulta, al meter un registro que no se encuentra debe la computadora decirme que ese registro ya se borro o no existe ok? bueno el codigo que le meto en este boton es:

Data1.Recordset.MoveFirst
While Text8.Text <> Data1.Recordset!clave
Data1.recorset.MoveNext

Wend
Text1.Text = Data1.Recordset!nombre
Text2.Text = Data1.Recordset!direccion
Text3.Text = Data1.Recordset!telefono
Text4.Text = Data1.Recordset!tipo
Text5.Text = Data1.Recordset!raza
Text6.Text = Data1.Recordset!diagnostico
Text7.Text = Data1.Recordset!proxcita
Text9.Text = Data1.Recordset!fecha
Text10.Text = Data1.Recordset!edad

Si me da la consulta correcta, pero cuando meto un registro que no existe me da error alguin sabe como se hace para que me diga que ese registro no existe por favor. Muchas gracias.

Hola, el error ocurre porque recorres toda la tabla y no existe ningún registro que concida. NOTA: el error no ocurre durante el ciclo, sino que ocurre cuando intentas asignar algún registro al text1.
Puedes probar con ON ERROR GOTO error.
La sintaxis es:
ON ERROR GOTO error
aqui iria tu código
EXIT SUB
error:
msgbox err.number & " " & err.description

OJO Es importante que inluyas el exit sub, de lo contrario siempre te enviaria el mensaje, independientemente de que se genere o no un error. Y también incluye los dos puntos (:) en el segundo error (el que esta entre el exit sub y el msgbox)

Espero que esto te sirva, de lo contrario manda otro mensaje a ver si hay alguna otra idea.

Saludos y mucha suerte.