Pessoal no meu codigo eu consigo preencher o meu combo somente com os nomes que me interessam o que eu não estou conseguindo fazer é com que este nomes fiquem disponiveis em uma lista visivel automaticamente.

Ex. digito mar

e a lista me mostrar

maria
marcos
marcia

isso seria possivel? se for como faço? devo modificar alguma propriedade do meu combo?

Private Sub TxtPaisNome_Change()
    Dim Cont As Integer
    Dim Receb As String
    vTbNome.MoveMin
    CboNome.Clear
    vNome = TxtNome.Text
    Cont = Len(vNome)
    While vTbNome.EOF = False
        Receb = Left(vTbNome.Fields("nome"), Cont)
        If Receb = TxtNome.Text Then
            CboNome.AddItem (CStr(vTbNome.Fields("nome")))
        End If
        vTbNome.MoveNext
    Wend
End Sub

Grato pela atenção.

Que Deus ilumine a todos.

Para incluir o mar na lista, vc tem fazer um add.item

ex: cbonome.addIttem "Mar"

A partir daí ele aparecerá na lista.

Não sei se a dúvuda era esta.

Dá uma olhada nessa dica

 

Ela funciona como vc quer mas está com um TextBox. Com algumas Modificações vc facilmente conseguirá fazer com o ComboBox.