出现2501 错误

如果点击““是””就出现““您准备删除第一行””，继续“是”，“你正在删除第一行”，继续“是”，“您准备添加第一行””，，继续“是”“你正在添加第一行”，最后出现我要的结果，以前就是直接出现我要的结果：   如果点击““否””，就出现错误  ““2501””  ，帮我看看这个代码有没有问题，

Public Sub 货号查询_Click()
DoCmd.RunSQL "DELETE * FroM 查询临时表"
DoCmd.RunSQL "DELETE * FroM 加工临时表"
DoCmd.RunSQL "INSERT INTO 查询临时表 ( 货号 ) SELECT [Forms]![装箱单]![查货号] AS 表达式1"
DoCmd.RunSQL "INSERT INTO 加工临时表 ( 条码, 加工数量, 已加工数量, 货号, 库存 ) " & _
"SELECT 统计已加工.条码, 统计已加工.加工总数, 统计已加工.已加工, 统计已加工.货号, 统计已加工.总库存 " & _
"FROM 查询临时表 INNER JOIN 统计已加工 ON 查询临时表.货号 = 统计已加工.货号"
If DCount("条码", "加工临时表") = 0 Then
MsgBox "不加工"
Exit Sub
End If