[5分]追加查询出现错误提示！

Private Sub Command14_Click()
    Dim NumListCount As Long               '列表框中记录的行数
    Dim varI As Variant
    If Me.收款编号.ColumnHeads Then   '判断是否显示了列表框标题,如果是总行数需要扣减1
        NumListCount = Me.收款编号.ListCount - 1
    Else
        NumListCount = Me.收款编号.ListCount
    End If
    If NumListCount > 0 Then
        If MsgBox("你确定要添加已选择的数据？", vbExclamation + vbOKCancel, "提示") = vbOK Then
            For Each varI In Me.收款编号.ItemsSelected   '用For Each 循环选中（ItemsSelected）的记录
                DoCmd.SetWarnings False
          
                '添加所选中的记录，Me.List_Book.Column(0, varI)为第1列第选择中行的书籍编号
                DoCmd.RunSQL "INSERT INTO 现金缴款明细 ( 交款编号,收款编号, 收据自编号, 收据编号, 收据日期, 客户名称, 收据金额,支付方式 ) " _
                           & "SELECT 1,现金收款明细.收款编号, 现金收款明细.收据自编号, 现金收款明细.收据编号, 现金收款明细.收据日期, 现金收款明细.客户名称, 现金收款明细.收据金额,现金收款明细.支付方式 " _
                           & "FROM 现金收款明细 where 收据编号 = '" & Me.收款编号.Column(1) & "'"

                DoCmd.SetWarnings True
            Next
        Else
            Exit Sub
        End If
    End If
   
    '刷新
    'Me.收款编号.RowSource = " SELECT * FROM 现金收款明细;"
    Me.List12.RowSource = "select * from 现金缴款明细"
    Me.Requery

End Sub