优化：Private Sub CommandButton3_ClickDim conn As ADODBConnectionSet conn = New ADODBConnectionconnOpen Provider=MicrosoftACEOLEDB120;Data Source=E检测设备门窗zwhmdbDim cmd As ADODBCommandSet cmd = New ADODBCo

Private Sub CommandButton3_Click() Dim conn As ADODB.Connection Set conn = New ADODB.Connection

'连接字符串可以提取为常量或者配置文件中的值，方便修改
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\检测设备\门窗\zwh.mdb"

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "insert into 气密原始记录负压1(序号) values (?)"

'使用参数化查询，避免SQL注入攻击
Dim param As ADODB.Parameter
Set param = cmd.CreateParameter("value0", adVarChar, adParamInput, 255, Range("F7").Value)
cmd.Parameters.Append param

cmd.Execute
conn.Close
Set conn = Nothing

End Su