Filtrando en ComboBox

[polielb]

pero donde comparas con la letra ingresada, y donde filtras con la tabla los valores correspondientes ??
yo estoy probando asi filtrando con consultas y cargando una tabla Tmp y direccionando el DataCombo a esa tabla cada vez que filtro

If KeyCode = 13 Then
Ccategoria.SetFocus
End If
If KeyCode = 8 Then
Exit Sub
End If
a = cempresa1
'filtro por la letra que esta escribiendo
Set Temporal = DE.Agenda.Execute("SELECT CodEmpr, Nombre From TmpEmpresasTANGOyAGENDA WHERE (Nombre LIKE '" & a & "%')")
If Temporal.RecordCount > 0 Then
'Borro lo que tenga TmpEmpresa
DE.Agenda.Execute "DELETE FROM TmpEMPRESA"
Do Until Temporal.EOF
'cargo la tabla TmpEmpresa
DE.Agenda.Execute "INSERT INTO TmpeMPRESA (Nombre) VALUES ('" & Temporal!nombre & "')"
Temporal.MoveNext
Loop
Set cempresa1.RowSource = DE
cempresa1.RowMember = "Tmpempresa"
cempresa1.ListField = "nombre"
cempresa1.BoundColumn = "nombre"

'esto me funciona con un COmboBox pero no con este DataCombo porque no anda ??
Const CB_SHOWDROPDOWN = &H14F
tmp = SendMessage(cempresa1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
Exit Sub
End If

ahora la cosa rara que pasa es que vuelve constantemente a la linea que tiene el Set Tempora = de.agenda.execute ..........

NO SE PORQUE ?????????? vuelve y vuelve y vuelve como un loop siendo que no hay loop que pasa ??? a la primera que filtro veo que me filtra., por ejemplo, con "ab" me filtra 3 Registros pero hace un loop y vuelve al filtro no se que pasa