No me sale del evento Keyup

Hola amigo, mira mi problema es muy raro se ejecuta el evento keyup cuando pulso una tecla en este caso por ejemplo cargo "a" en el Datacombo y la idea es filtrar todos los registros cuyos datos contengan "a" y así si carga después "ab" filtraría los correspondientes, pero el problema radica en que no sale del evento hace un loop no se que pasa se vuelve a ejecutar el evento infinidad de veces
Te paso el código que tengo
Private Sub DataCombo1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Ccategoria.SetFocus
Exit Sub
End If
If KeyCode = 8 Then
Exit Sub
End If
a = cempresa1
Set Temporal = Nothing
Set Temporal = DE.Agenda.Execute("SELECT CodEmpr, Nombre From TmpEmpresasTANGOyAGENDA WHERE (Nombre LIKE '" & DataCombo1 & "%')")
Temporal.MoveLast
Temporal.MoveFirst
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
End If
Adodc1.RecordSource = "tmpempresa"
Adodc1.Refresh
End Sub
La idea es ir actualizando una tabla temporal donde guardaría los campos que coincidan GRACIAS ¡