CurrentDb.Execute "insert into Tmp_采购材料选择([流水号],[品牌名称],[材料ID],[类别],[大底码标],[包料],[材料名称],[供应商],[款号ID],[工厂款号],[对数],[未购],[总需],[已购],[32#],[33#],[34#],[345#],[35#],[355#],[36#],[365#],[37#],[375#],[38#],[385#],[39#],[395#],[40#],[405#],[41#],[415#],[42#],[425#],[43#],[435#],[44#],[445#],[45#],[46#],[47#],[小小#],[小#],[中#],[大#],[加大#],[品牌],[拉链头],[排单名称],[排单备注],[季度],[客户名称],[客户订单号],[关闭],[单位]) " _
             & " select [流水号],[品牌名称],[材料ID],[类别],[大底码标],[包料],[材料名称],[供应商],[款号ID],[工厂款号],[对数],[未购],[总需],[已购],[32#],[33#],[34#],[345#],[35#],[355#],[36#],[365#],[37#],[375#],[38#],[385#],[39#],[395#],[40#],[405#],[41#],[415#],[42#],[425#],[43#],[435#],[44#],[445#],[45#],[46#],[47#],[小小#],[小#],[中#],[大#],[加大#],[品牌],[拉链头],[排单名称],[排单备注],[季度],[客户名称],[客户订单号],[关闭],[单位] from View_材料需求未购 where 未购<>0 and 关闭=0 and 类别=" & SQLText(Me.List0)

测试了，插入6000条数据，用时0.57秒

如果用：

LoadRecord "Tmp_采购材料选择", "select * from View_材料需求未购 where 未购<>0 and 关闭=0 and 类别=" & SQLText(Me.List0)

相同数据量，用时4.37秒

最近在研究系统的加速问题，个人的小经验，分享一下。如果有更好更快的方法，欢迎提出学习。谢谢