Listo!!!! ya se pudo hacer la busqueda muchas gracias a todos por sus comentario y Txcoco muchas gracias por todas la explicaciones ahora si podre seguir con mi programa para eliminar y modificar registros espero q no se me complique mucho y sino pues aqui estare molestandolos.........
Por cierto ya despues de tu ultima explicacion Txcoco mi codigo quedo asi para poder realizar la consulta.
Cita: Private Sub Combo1_Click()
Call VisualizarPacientes
RecBD.Find ("apellidos='" & Combo1.List(Combo1.ListIndex) & "'")
Text1(0) = RecBD!Id
Text1(2) = RecBD!nombre
Text1(3) = RecBD!apellidos
Text1(4) = RecBD!ocupacion
Text1(5) = RecBD!recomendado
Text1(6) = RecBD!nacimiento
Text1(7) = RecBD!edad
Text1(8) = RecBD!sexo
Text1(9) = RecBD!proxima
Text1(10) = RecBD!tel1
Text1(11) = RecBD!tel2
Text1(12) = RecBD!tel3
Text1(13) = RecBD!tel4
Text1(14) = RecBD!calle
Text1(15) = RecBD!colonia
Text1(16) = RecBD!municipio
Text1(17) = RecBD!estado
Text1(18) = RecBD!pais
Text1(19) = RecBD!antecedentes
End Sub
Saludos y Gracias