Visual Basic - Búsqueda en un ComboBox

Buenos tardes,

Necesito saber cómo hacer una búsqueda en un combobox, es decir, que cuando
escriba la palabra inicial del dato requerido muestre la palabra completa y
pueda escogerla desde una base de datos establecida.

Agradecería me pudieran colaborar lo más pronto posible.

Edison Pérez A.
[email protected]

Este código lo saqué de la Página del Guille y se asemeja bastante a lo que pides. Debes copiarlo en el evento KeyPress de tu ComboBox.

Private Sub CBCAMPO_KeyPress(KeyAscii As Integer)
Dim Cb As Long
Dim FindString As String
Const CB_ERR = (-1)
Const CB_FINDSTRING = &H14C
If KeyAscii < 32 Or KeyAscii > 127 Then Exit Sub
If CBCAMPO.SelLength = 0 Then
FindString = CBCAMPO.Text & Chr(KeyAscii)
Else
FindString = Left(CBCAMPO.Text, CBCAMPO.SelStart) & Chr(KeyAscii)
End If

Cb = SendMessage(CBCAMPO.hWnd, CB_FINDSTRING, -1, ByVal FindString)
If Cb <> CB_ERR Then
CBCAMPO.ListIndex = Cb
CBCAMPO.SelStart = Len(FindString)
CBCAMPO(Index).SelLength = Len(CBCAMPO.Text) - CBCAMPO.SelStart
End If
KeyAscii = 0
End Sub

Espero que te sirva...