Private Sub cmdconsultar1_Click()

buscar = InputBox("proporcione la curp")
Data1.Recordset.findfirst "curp='" & buscar & "'"
'pedimos el dato hasta que no sea repe
while data1.recordset.nomatch
    msgbox("el curp ya existe")
    buscar = InputBox("proporcione la curp")
   Data1.Recordset.findfirst "curp='" & buscar & "'"
wend
'ya tienes el dato correcto

End Sub

Private Sub cmdconsultar1_Click()

buscar = InputBox("proporcione la curp")
Data1.Recordsource="select blablablbal from tablablalbabal where curp='" & buscar & "'"
data1.refresh
'pedimos el dato hasta que no sea repe
while not data1.eof
    msgbox("el curp ya existe")
    buscar = InputBox("proporcione la curp")
    Data1.Recordsource="select blablablbal from tablablalbabal where curp='" &    buscar & "'"
   data1.refresh
wend
'ya tienes el dato correcto

End Sub

FindFirst, FindLast, FindNext, FindPrevious (Métodos)

Buscan el primero, último, siguiente o anterior registro de un objeto Recordset de tipo Dynaset o Snapshot que cumpla el criterio especificado y lo convierte en el registro activo (sólo espacios de trabajo Microsoft Jet).

Sintaxis

recordset.{FindFirst | FindLast | FindNext | FindPrevious} criterios

Los métodos Find utilizan los siguientes argumentos.

Argumento   Descripción
recordset   Una variable de objeto que representa un objeto Recordset existente de tipo Dynaset o Snapshot.
criterios   Un tipo de datos  String utilizado para localizar el registro. Es como la cláusula WHERE en una instrucción SQL, pero sin la palabra WHERE.
Comentarios

Si desea incluir todos los registros en la búsqueda - no sólo aquellos que cumplan un condición específica - utilice los métodos Move para pasar de un registro a otro. Para localizar un registro en un Recordset de tipo Table, utilice el método Seek.
Si no se localiza un registro que coincida con los criterios, el puntero del registro activo será indeterminado y la propiedad NoMatch será True. Si recordset contiene más de un registro que satisfaga el criterio, FindFirst localizará la primera aparición, FindNext localizará la segunda, etc.

Cada método Find comienza a buscar desde la posición y en la dirección especificadas en la siguiente tabla:

Métodos Find    
Comienzo   Dirección de búsqueda
FindFirst   Comienzo del recordset   Fin del recordset
FindLast   Fin del recordset   Comienzo del recordset
FindNext   Registro activo   Fin del recordset
FindPrevious   Registro activo   Comienzo del recordset

Copyright (c) 1996 Microsoft Corporation

yo tener mucho tiempo de no entrar a VB pero saber VB yo ayudar a foro en varias secciones pero gustar ser VB moderador

Hans topo!!! por sus peliculas: Facturas y Pedidos en VB y por Twips the game

Como ya dije, la principal obligación de un mod no es saber mas que nadie en ese foro, sino saber llevar ese foro, sin peleas, sin posts "basura" y demás. 

miren la propiedad static es para hacer las cosas que se keden en un puntos sin cambios del usuario

esto mostrara "Me han llamado 1 veces" la primera vez "Me han  llamado 2 veces" la segunda y asi hasta que te canses de llamarla siempre sumando 1 mas, cosa que sin static i pierde su valor al terminar de ejecutarse el precedimiento.