同时向access两个表存储数据

shi7361

帮我看看这个代码，不运行呢？
第一种：可以运行（只向access一个表存储）
Private Sub CommandButton2_Click() '保存单据 (新增录入）
    If 是否填写完整 Then Exit Sub  '调用子过程
    On Error Resume Next
    Call OpenConn     '联接数据
    SQL = "Select * from [出入库数据表] where 编号 like'" & VBA.UCase(Range("k2")) & "'"
    rst.Open sq, cnn, adOpenKeyset, adLockOptimistic
    With rst
        If .RecordCount > 0 Then MsgBox "当前单据已经存在，请不要重复录入", 16, "保存提示": GoTo 100
        .AddNew '新建记录
        .Fields("开始生产时间") = Range("C2").Value
        .Fields("产品名称") = Range("G2").Value
        .Update '更新数据
        MsgBox "保存完毕"
        Call 清空 '清空
        Call COBT_ENABLED(7)
100:
    End With  
    Call CloseConn
End Sub

第二种：同一数据想存储两次
Private Sub CommandButton2_Click() '保存单据 (新增录入）
    If 是否填写完整 Then Exit Sub  '调用子过程
    On Error Resume Next
    Call OpenConn     '联接数据
    SQL = "Select * from [出入库数据表] where 编号 like'" & VBA.UCase(Range("k2")) & "'"
    sq1 = "select * from 出入库数据表"
    sq2 = "select * from 销售数据库"
    rst1.Open sq1, cnn, adOpenKeyset, adLockOptimistic
    With rst
        If .RecordCount > 0 Then MsgBox "当前单据已经存在，请不要重复录入", 16, "保存提示": GoTo 100
        .AddNew '新建记录
        .Fields("开始生产时间") = Range("C2").Value
        .Fields("产品名称") = Range("G2").Value
        .Update '更新数据
      end with
        rst2.Open sq2, cnn, adOpenKeyset, adLockOptimistic
    With rst2
        .AddNew '新建记录
        .Fields("编号") = Range("K2").Value
        .Fields("单据类型") = "入库记录"
        .Update '更新数据
        MsgBox "保存完毕"
        Call 清空 '清空
        Call COBT_ENABLED(7)
100:
    End With

    Call CloseConn
End Sub

为啥第二段可以运行，但是一张表也不保存呢？