怎样写不追加重复数据的代码

这是一段追加查询的代码，应该在后面添加什么代码，可以做到不追加重复的数据呢，请高手指导。

Private Sub 支付货款_Click()
DoCmd.RunSQL "INSERT INTO 支付原料货款表 ( 日期, 凭证号,收款单位, 支付金额) SELECT 支付货款表.进料日期, 支付货款表.进料单ID,支付货款表.供应商, 支付货款表.合计金额 FROM 支付货款表 where 进料单ID=" & 进料单ID
End Sub