Me enviaste un periodico 
Bueno lo primero es que JuanPancho tiene razon.
Lo segundo que tambien tu al pensar que, en el momento que oprimes una letra te empieza a buscar.
La grilla se va llenando, es decir, si colocas la letra A, la grilla se llena con todos los nombres que empiezan por la letra A.
si sigues ecribiendo y colocas An, te crea un filtro y ahora busca por las letras An.
y si escribes angel38, te mostrará el cliente o los clientes que se llamen asi.
Intenta entender el codigo o enviame partes que no estiendas, es mas mi correo lo tengo a la vista del publico solo has click en Angel38 y te podre dar una ayuda mas personalizada.
mi horario es por ahora de 12:00 pm a 2:00 pm, hora colombiana.
Sino se puede sigueme haciendo preguntas que yo casi siempre ando por aqui.
Cuando logres entender el codigo te envio la jugada para que al darle doble click al nombre que esta en la grilla esta te muestre la informacion del cliente. 
Yo también te envié un periodico jajaja 
miren este es parte del codigo q esta en este pagina
Dim SQL As String
Dim rs7 As Recordset
bus = proape.Text
On Error GoTo ManejoError
mostrar_hc.Clear
SQL = "select * from base_hc where ape_pat like'" + bus + "*' "
Set rs7 = base_hc.OpenRecordset(SQL, dbOpenSnapshot)
rs7.MoveFirst
i = 1
Do While Not rs7.EOF
'mostrar_hc.AddItem rs.Fields("ape_pat").Value
mostrar_hc.Text = "Apellido Paterno"
mostrar_hc.CellBackColor = &HE0E0E0
mostrar_hc.Col = 0
mostrar_hc.Text = "Apellido Materno"
mostrar_hc.CellBackColor = &HE0E0E0
mostrar_hc.Col = 0
mostrar_hc.Rows = i
texto = rs!ape_pat + Chr(9) + rs!ape_mat + Chr(9)
'texto = rs!ape_pat + Chr(9)
mostrar_hc.AddItem texto, i
rs7.MoveNext
i = i + 1
If proape.Text = "" Then
mostrar_hc.Clear
End If
Loop
lo pase a mi apliacacion
pero lo q pasa es q en ves de llenarse con la letra de la primera coincidencia de la b.d no sale nada se borra lo anterior y nada , pueden ayudarme entiendo algo el codigo pero no sale
Mostrar Mensajes
