Problema en creación de consulta interactiva y dbgrid en Visual Basic. Base de datos en Access

He encontrado una subrutina para simular lo de la ayuda
en un comboBox. Hay que escribir en ese comboBox y mientras estas
escribiendo aparecen los resultados en el comboBox. La subrutina no
se puede adaptar al dbgrid ya que utiliza funciones api para comboBox.
Lo único que puedes hacer es cargar la tabla en el comboBox, ocultarlo
y enviarle el contenido al comboBox y después recogerlo.
Pt:
En el caso de que modifiques la rutina o encuentres algún error envíamela por favor.
Si tienes alguna duda no dudes en volver a preguntarme.
Código:
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Sub encontrarEntrada(combo As ComboBox, KeyAscii As Integer)
'Funcion que buscar la primera entrada o las siguientes entradas de
'un comboBox simulando la ayuda
'Parametros de entrada:
'Combo: El comboBox
'Keyascii: La tecla pulsada
'Declares:
'Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'Notas:
'Para que funcione hay que llamar a este procediemiento desde el
'evento keypress del combo o introducir un valor de una tecla keyAscii
'(lo mejor es llamarlo desde el evento keypress)
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 combo.SelLength = 0 Then
FindString = combo.text & Chr$(KeyAscii)
Else
FindString = Left$(combo.text, combo.SelStart) & Chr$(KeyAscii)
End If
cb = SendMessage(combo.hwnd, CB_FINDSTRING, -1, ByVal FindString)
If cb <> CB_ERR Then
combo.text = combo.list(cb)
combo.SelStart = Len(FindString)
combo.SelLength = Len(combo.text) - combo.SelStart
KeyAscii = 0
End If
End Sub