Proba asi:
Código:
' En la parte General - Declaraciones
Private Declare Function SendMessageLong Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Combo1_Change()
' Desplegar ComboBox
Dim Resp As Long
Resp = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
End Sub
Ojo, esto lo he hecho con un ComboBox normal, aunque me imagino que debe ser igual para el dataCombo.
Tambien, dejo un programa que mediante una conexión a una base de datos de MS Access simula el Autocompletar de la barra de direcciones del Internet Explorer; para descargarlo hace clic
aqui
Saludos
