优化：Dim conn As ADODBConnectionSet conn = New ADODBConnectionconnOpen Provider=MicrosoftACEOLEDB120;Data Source=E检测设备门窗zwhmdbDim cmd As ADODBCommandSet cmd = New ADODBCommandcmdActiveConnection = connc

Set conn = Nothing Set cmd = Nothing

优化后的代码：

Dim conn As ADODB.Connection Set conn = New ADODB.Connection

With conn .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\检测设备\门窗\zwh.mdb" .Open End With

Dim cmd As ADODB.Command Set cmd = New ADODB.Command

With cmd .ActiveConnection = conn .CommandText = "INSERT INTO 气密原始记录负压1 (序号) VALUES (?)" .Parameters.Append .CreateParameter("value0", adVarChar, adParamInput, 255, Range("F7").Value) '序号 End With

conn.Close Set conn = Nothing Set cmd = Nothin