总出现起码一个参数没有被指定值

总出现至少一个参数没有被指定值
Public Sub Adddata()
    On Error GoTo error
    Dim sql As String
    '连接数据库
    sql = "INSERT INTO data " & "VALUES (" & Trim(Text1.Text) & ",'" & Trim(Text2.Text) & "'," & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "," & Text5.Text & ") "
    conn.Execute sql
    '重新显示
    Form1.Data_Show
    '提示
    MsgBox "添加成功！", vbInformation
    '清空文本框
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    '设置焦点
    Text1.SetFocus
    Exit Sub
error:
    MsgBox Err.Description & "Adddata", vbExclamation
End Sub

[解决办法]
    sql = "UPDATE [data] " & "SET 小组='" & Trim(Text2.Text) & "',项目名称='" & Text3.Text & "',项目令号='" & Text4.Text & "',项目=" & Text5.Text & " WHERE ID=" & Text1.Text & ""

    Debug.Print sql

得到 SQL 字符串。

在 Access 的查询调试窗口中测试 SQL 字符串，看它指出是哪一个参数。

一个参数没有被指定值是说，一个字段名之类的表达式无法被数据库引擎识别。
[解决办法]
1，检查代码中的表与字段名是否正确
2，检查控件中的数据类型是否正确
3，sql=" UPDATE 表名 SET 字符型字段名='"& 字符型变量 &"',数值型字段名="& 数值型变量 &" where ID="& text1.text &""