如何将查询的SQL语句写进VBA代码中???

点击下载此附件

1、表：【Temp】、【InData】————————现在欲将前表在后表未出现的记录，追加至后表

2、查询（不重复项查询）【ImportData】

查询两表不重复项的SQL语句如下：

SELECT Temp.DkID, Temp.InName, Temp.InSaDa, Temp.InFiNo, Temp.InWurl
FROM Temp LEFT JOIN InData ON Temp.[InWurl] = InData.[InWurl]
WHERE (((InData.InWurl) Is Null Or (InData.InWurl)=""));

3、将不重复项查询【ImportData】追加至表【InData】，现有语句如下

Private Sub cmdTempToInData_Click()
    DoCmd.RunSQL "Insert into InData select * from ImportData"
    DoCmd.RunSQL "delete from Temp"
End Sub

现在的问题是：如何将SQL查询语句写入VBA代码？？？将ImportData
替换掉