No sale del Evento KeyUp

polielb2
22 de Febrero del 2005
hola amigos no se que pasa con el Keyup pero al entrar no vuelve a salir de este la instruccion que tengo tiene un do pero corto y termina en 3 lineas aqui les paso la instruccion a ver si encuentral algo raro porque constantemente vuelve a repetir rl evento sin salir de este

If KeyCode = 13 Then
Ccategoria.SetFocus
acepto = False
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 '" & cempresa1 & "%')")
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
exit sub
end sub