代码如下：
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

??????????????????????