Combobox no despliega filtrado

¿Cómo estas?

Tengo un formulario con dos campos, un combobox y un text. En el combo box tengo un filtro que si bien funciona no me despliega (en vivo) los datos encontrados segun la cedena de caracteres ingresados, tengo este codigo en el evento "Despues de Actualizar":

Private Sub Busca_AfterUpdate()
If Me.Busca <> "" Then
Me.Busca.RowSource = "Select Detalle, id_Area From Areas Where Detalle Like '*" & Me.Busca & "*' Order By Detalle"
Me.Busca.Dropdown
End If
End Sub

Tambien lo agregue en el evento "Al cambiar" pero con ninguno logro que se "abra" sola la lista

Private Sub Busca_Change()
' If Me.Busca <> "" Then
' Me.Busca.RowSource = "Select Detalle, id_Area From Areas Where Detalle Like '*" & Me.Busca & "*'"
' Me.Busca.Dropdown
' Me.Busca.Requery
' End If
End Sub