Visual Basic - escribir en combobox

Hola. Como estan todos?

Tengo una consultita,
tengo un combobox q tiene una lista de datos de un recorset. el combo me permite seleccionar o ir escribiendo.
Lo q necesito es q no me permita escribir palabras q tiene en la lista. Osea si yo escribo una letra c y no encuantra nada con C al principio q no me permita seguir tipiando. el codigo q tengo para el combo box es este:

Bueno espero aberme explicado bien,,, desde ya gracias por leer mi mensaje.
saludos.....

form_load
Dim recor As ADODB.Recordset
Dim i As Integer
Me.cbopaciente.Clear
Set recor = New ADODB.Recordset
recor.Open "Select pacientes.doc_paciente as cod,PACIENTES.apellido_paciente as Apellido, PACIENTES.nombre_paciente as Nombre From pacientes where pacientes.estado like '" & Alta & "'", cnn, adOpenStatic, adLockBatchOptimistic
For i = 1 To recor.RecordCount
cbopaciente.AddItem recor("Apellido") & ", " & recor("Nombre")
recor.MoveNext
Next i
recor.Close
End Sub

Private Sub cbopaciente_Change()
Dim Cadena As String
If Len(Me.cbopaciente.Text) > 30 Then
Cadena = Left(Me.cbopaciente, 30)
Me.cbopaciente.Text = Cadena
Me.cbopaciente.SelStart = Len(Cadena)
End If
End Sub

Private Sub cbopaciente_KeyUp(KeyCode As Integer, Shift As Integer)
Dim LenText As Long, ret As Long
'Si los caracteres presionados están entre el 0 y la Z
If KeyCode >= vbKey0 And KeyCode <= vbKeyZ Then
ret = SendMessage(cbopaciente.hwnd, &H14C&, -1, ByVal cbopaciente.Text)
If ret >= 0 Then
LenText = Len(cbopaciente.Text)
cbopaciente.ListIndex = ret
cbopaciente.Text = cbopaciente.List(ret)
cbopaciente.SelStart = LenText
cbopaciente.SelLength = Len(cbopaciente.Text) - LenText
End If
End If
End Sub

Ese ejercicio lo encuentras en la Documentacion del Visual Studio, sino lo encuentras me avisas para buscarlo y enviartelo.

Hola Edwin:

mira realmete no se si me llegaste entender lo q estoy necesitando.
Te explico nuevamente.
a mi los combos q tengo me permiten escribir y listar los datos, pero lo q quiero hacer es q si ese combo no tiene en su lista la palabra q estoy tipiando me de un mensage o q no me deje seguir escribiendo... creo q puedo hacer con una busqueda pero todavia no se como hacerlo..

De todos modos no lo encontre en la documentacion de visual... Si no es mucho pedir, puedes enviarme...

Desde ya muchisimas gracias.. Saludos.

buenas, mirate este enlace.

http://www.recursosvisualbasic.com.ar/htm/listado-api/api-54-autocompletar-combo.htm