جمود الفورم أثناء تنفيذ استعلام فى قاعده كبيرة

السلام عليكم 

أستخدم هذا الكود فى عمل نقل جدول من القاعده الاساسية الى قاعده مرتبطة ببرنامجي وهو يعمل بشكل جيد

ولكن هناك بطيء فى تنفيذ المطلوب حيث ان القاعده تحتوي على مليون ونصف سجل وهو يبحث فيهم و ينفذ المطلوب 

اثناء التنفيذ يكون هناك جمود كامل للفورم ولا استطيع تتبع ما يحدث ولا تحريك الفورم  فهل هناك حل لهذا الامر وشكراً اخواني

CnDB1.Execute "INSERT INTO TBL1 (EventTime,DeviceIdx,ReaderNo,CardNo,EMA,EventType,EventStatus,FunctionCD,PSNID,Description) " & _
"IN '" & App.Path & "\ff.mdb' " & _
"SELECT dbo_T_EVT_Event.EventTime,dbo_T_EVT_Event.DeviceIdx,dbo_T_EVT_Event.ReaderNo,dbo_T_EVT_Event.CardNo,dbo_T_EVT_Event.EMA,dbo_T_EVT_Event.EventType,dbo_T_EVT_Event.EventStatus,dbo_T_EVT_Event.FunctionCD,dbo_T_EVT_Event.PSNID,dbo_T_EVT_Event.Description FROM dbo_T_EVT_Event where Format(EventTime,'mm/dd/yyyy') = '" & Format(DTPicker1.Value, "mm/dd/yyyy") & "'"
DoEvents