Perdonen el post doble, pero es que ya he encontrado la solucion, a  lo de la busqueda y espero que dejen este post fjo o algo asi, ya que yo en lo personal busque y busque en demaciados foros y no hay un ejemplo de como hacerlo, asi que les dejo como lo he solucionado.


Private Sub cmdconsultar1_Click()

buscar = InputBox("proporcione la curp")
Data1.Recordset.MoveFirst
Do
If buscar = txtcurp1.Text Then
Exit Sub
End If

If buscar <> txtcurp1.Text Then
cmdconsultar1.Enabled = True
cmdconsultar1.Visible = True
End If

Data1.Recordset.MoveNext
Loop Until Data1.Recordset.EOF



End Sub

Pues bien esa es la cuestion necesito hacer una busqueda, mi programa esta enlasado a un abase de datos, y lo que quiero hayr es que si pordecir la matricula o CURP, ya existe pues que envie un mesaje que ya esta registrada.

Por lo pronto lo que me interesa es hacer la busqueda ya llevo rato tratando de hacerlo pero nadamas no encuentro la solucion, este es lo que llevo del codigo para la accion que quiero realisar.


Private Sub cmdconsultar1_Click()
InputBox ("Proporcione la CUPR")
Data1.Recordset.MoveFirst
Do
 
Data1.Recordset.MoveNext
Loop Until Data1.Recordset.EOF



una ves ya lo habia echo y se que se puede es de una forma muy sencilla, pero lamentablemente, deje de oprogramar un tiempo y se me ha olvidado y la carpeta donde tenia eso se trono el discoduro  y pues se perdio todo.

Espero me ayuden un saludo cordial