ACCESS 怎样一次写入多条数据

Question

SELECT * FROM CompareBase INNER JOIN Zd_Xm5 ON CompareBase.Xm_name = Zd_Xm5.Xm_name
我想点击Command1后将以上查询中当中的四个字段一次写入另外一张表不知到该怎么写代码，需要不需要声明一个函数，请哪位大哥指点一下，
Private Sub Command1_Click()End Sub

Answer 1

直接一条sql语句就可以实现了。
INSERT INTO 新表(A, B, C, D)
SELECT A, B, C, D FROM CompareBase INNER JOIN Zd_Xm5 ON CompareBase.Xm_name = Zd_Xm5.Xm_name