I want to make a cfd that presents an analysis of the course of stock prices obtained from FinancialData and in which the user can jump from one stock to another. But when I for instance make a notebook with the following commands

Dynamic[p]
Dynamic{FinancialData[p,{2017,1,1}]
p="GE"

Mathematica becomes awfully slow, while other programs at the same time keep running at the usual speed. Is there any remedy for this problem? In the Windows 10 task manager I can see that Mathematica uses only about 1% of the Intel i5 processor and 92 MB of the 8 GB memory while the Mathematica Kernel uses about 5% of the processor, 288 MB of the memory and 1 to 2 Mbps of my 50 Mbps download internet connection speed.