codigo para buscar un registro

[xochitemol]

siempre y cuando tu conexion este bien hecha aqui te va el codigo claro no como lo quiere modifica

Dim existe As String
Dim nombre As String
nombre = inoutbox(nombre)
If nombre = "" Then
Exit Sub
Else

Adodc1.RecordSource = "SELECT *FROM busqueda WHERE nombres = '" & nombre & "'"
Adodc1.Refresh

With Adodc1.Recordset
'si no encuentra
If .RecordCount = 0 Then
txtcarrera.SetFocus
Exit Sub
Else
'si encuentra registro
'Text1 = !nombres
existe = MsgBox("Ya Existe un alumno con ese nombre" & vbCrLf _
& " Desea Consultar sus datos", vbInformation + vbYesNo)
If existe = vbYes Then
txtnombre = !nombre
txtpaterno = !paterno
txtmaterno = !materno
txtcarrera = !carrera
Cmbescuela = !escuela
'txtescuela = !escuela
txtdirescuela = !direscuela
txtdirector = !director
txtobjetivo = !objetoservicio
txtactividades = !actividades
txtdependencia = !dependencia
txtdirdependencia = !dirdepen
txtunidad = IIf(!unidadad = "", "No Registrado", !unidadad)
txtresponsable = !responsable
txtcargo = !cargoresponsable ' = IIf(txtcargo = "", "No Proporcionado por el usuario", txtcargo)
txtdias = !diasprestacion ' = IIf(txtdias = "", "No Proporcionado por el usuario", txtdias)
Finicio = !Finicio
'txtinicio = !Finicio ' = IIf(Finicio = "", "No Proporcionado por el usuario", Finicio)
Ftermino = !Ftermino ' = IIf(Ftermino = "", "No Proporcionado por el usuario", Ftermino)
Fentrega = !Fentrega ' = IIf(Fentrega = "", "No Proporcionado por el usuario", Fentrega)
'!Ftermino = IIf(Ftermino = "", "No Proporcionado por el usuario", Ftermino)
'txtregistro = !Fregistro '= IIf(Label9.Caption = "", "No Proporcionado por el usuario", Label9.Caption)
txthorario = !horario
Cmbprograma = !programa ' = IIf(Cmbprograma = "", "No Proporcionado por el usuario", Cmbprograma)
Cmbsemestre = !semestre '= IIf(Cmbsemestre = "", "No Proporcionado por el usuario", Cmbsemestre)
Cmbhoras = !horas '= IIf(Cmbhoras = "", "No Proporcionado por el usuario", Cmbhoras)
txtnumero = !numcontrol ' = IIf(txtnumero = "", "No Proporcionado por el usuario", txtnumero)
numeroeliminar = Trim(txtnumero)
Label30.Caption = !numero
Option1.Enabled = False
Option2.Enabled = False
Tool.Buttons(1).Enabled = False
Exit Sub
Else
'MsgBox "Presiono NO"
Exit Sub
End If
Exit Sub
End If
End With
End If


'espero por lo menos me digas si te funciono