代码如下：
Private Sub Command1_Click()
On Error GoTo adderr
Dim con As New ADODB.Connection
 Dim sql As String
            
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" _
   Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Or Text10.Text = "" Or Text11.Text = "" _
   Or Text12.Text = "" Or Text13.Text = "" Or Text14.Text = "" Then
     MsgBox "请填写完整的信息！"
   Exit Sub
End If
     
   Dim rs As New ADODB.Recordset
     sql = "select * from 原始数据 where RWBH='" & Text14.Text & "'"
     Set rs = transactsql(sql)
              
 If rs.RecordCount > 0 Then
       MsgBox "此任务编号已经存在，请重新输入！"
       Text14.SetFocus
       rs.Close
 Else
      sql = "select * from 原始数据"
      Set rs = New ADODB.Recordset
      Set rs = transactsql(sql)
      With rs
      If .BOF Then
         .MoveFirst
      Else
         .MoveNext
      End If
      
      .AddNew    'Adodc1.Recordset
      .Fields("Dmax") = Trim(Text1.Text)
      .Fields("Lmax") = Trim(Text2.Text)
      .Fields("Nmax") = Trim(Text3.Text)
      .Fields("Nmin") = Trim(Text4.Text)
      .Fields("ZKYV") = Trim(Text5.Text)
      .Fields("HKYV") = Trim(Text6.Text)
      .Fields("ZXGL") = Trim(Text7.Text)
      .Fields("HXGL") = Trim(Text8.Text)
      .Fields("ZJGV") = Trim(Text9.Text)
      .Fields("HJGV") = Trim(Text10.Text)
      .Fields("P") = Trim(Text11.Text)
      .Fields("T") = Trim(Text12.Text)
      .Fields("δ") = Trim(Text13.Text)
      .Fields("RWBH") = Trim(Text14.Text)
      .Update
      .Close
      End With
 End If
 
adderr:
MsgBox Err.Description
End Sub

出错提示：在对应的所需名称或序数的集合中,未找到项目
我有建模块代码：
Public Function transactsql(ByVal sql As String) As ADODB.Recordset   '执行sql语句
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
Set con = New ADODB.Connection                  '创建连接
Set rs = New ADODB.Recordset                    '创建记录集
On Error GoTo transactsql_Error
    strConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\所有数据表.mdb" & ";Persist Security Info=False"
    strArray = Split(sql)
    con.Open strConnection                       '打开连接
        If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
        rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic
        Set transactsql = rs                          '返回记录集
        iflag = 1
    Else
    con.Execute sql
    iflag = 1
    End If
transactsql_Exit:
    Set rs = Nothing
    Set con = Nothing
    Exit Function
transactsql_Error:
    MsgBox "查询错误：" & Err.Description
    iflag = 2
    Resume transactsql_Exit
End Function


Public Sub con_open()
Dim connectionstring As String     '创建连接
On Error GoTo conopen_Error
   connectionstring = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\所有数据表.mdb" & ";Persist Security Info=False"
    con.Open connectionstring
    iflag = 1
  'Exit Sub
conopen_Error:                                    '如果出错，进行出错处理
    MsgBox "连接数据库失败！请重新连接"
    iflag = 2
    Exit Sub
End Sub