优化代码：Private Sub CommandButton2_ClickDim conn As ADODBConnectionDim d1 As Double d2 As Double d3 As Double d4 As Double d5 As Double d6 As Double d7 As Double d8 As Double d9 As Doubled10 As Doubled1

Private Sub CommandButton2_Click() Dim conn As ADODB.Connection Dim d(1 To 10) As Double Dim i As Integer

For i = 1 To 10
    d(i) = Format(Range("C" & i + 5).Value, "0.000")
    If i > 4 Then
        d(i) = Format(Range("B" & i + 1).Value, "0.000")
    End If
    If i = 9 Or i = 10 Then
        d(i) = Format(Range("F" & i - 3).Value, "0.000")
    End If
Next i

Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\检测设备\导热系数测定仪\drxs\ZWH.mdb"

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "insert into 测试报告(序号,试验编号,检验单位,产品名称,试件规格,试件面积,试件厚度,试件形式,状态调节,材料名称) values (?,?,?,?,?,?,?,?,?,?)"

For i = 1 To 10
    cmd.Parameters.Append cmd.CreateParameter("value" & (i + 16), adVarChar, adParamInput, 255, d(i))
Next i

cmd.Execute
conn.Close
Set conn = Nothing

End Su