我想将一个窗体上输入的数据,通过一个按钮同时将数据保存到两个不同的表下. 两个表里的字段数不一样.但是有相同的字段. 请高手赐教!

这是我的窗体,各文本框的名跟标签名一致，保存按钮名是Command19，代码如下:

Private Sub Command19_Click()
On Error GoTo Err_Command19_Clik
  If IsNull(Me.项目编码) Or IsNull(Me.省级文号) Or IsNull(Me.项目名称) Or IsNull(Me.资金性质) Or IsNull(Me.资金数) Then
     MsgBox "你输入的数据不完整，请重新输入！", 48, "指标登记"
  Else
   
     Dim Rs As New ADODB.Recordset
     Dim Rx As DAO.Recordset

     Dim StrName As String
     StrName = "省级专款"
        With Rs
             .CursorLocation = adUseClient
             .Open StrName, CurrentProject.Connection, 1, 3
             .AddNew
             !项目编码 = Me.项目编码
             !省级文号 = Me.省级文号
             !项目名称 = Me.项目名称
             !资金性质 = Me.资金性质
             !资金数 = Me.资金数
             .Update
             .Close
        End With
        Set Rs = Nothing
        
     Set Rx = CurrentDb().OpenRecordset("预算情况表", dbOpenDynaset)
        With Rx
             .AddNew
             !项目编码 = Me.项目编码
             !项目名称 = Me.项目名称
             !资金级次 = "上级下达"
             !资金性质 = Me.资金性质
             !资金数 = Me.资金数
             .Update
             .Close
        End With
        Set Rx = Nothing
                
         For Each ctl In Me.Controls      '根据ctl的控件类型来选择
             Select Case ctl.ControlType
                 Case acTextBox       '是文本框，清空
                     If ctl.Locked = flase Then ctl.Value = Null
                 Case acComboBox     '是组合框，也清空
                     ctl.Value = Null
             End Select
         Next
        Me.项目编码.SetFocus
    End If
        
Exit_Command19_Clik:
  Exit Sub
Err_Command19_Clik:
  MsgBox Err.Description
  Resume Exit_Command19_Clik
  
End Sub

上面代码报错，请教老师们了

示例下载：点击下载此附件