求助求助！VBA+ADO+recordset+CopyFromRecordset很慢，匹配一个要十几

求助求助！VBA+ADO+recordset+CopyFromRecordset很慢，匹配一个要十几秒，数据源表有四五十万行，代码如图？