优化代码：Set conn = New ADODBConnectionconnOpen Provider=MicrosoftACEOLEDB120;Data Source=E检测设备力学VBA测试NewmdbDim cmd As ADODBCommandSet cmd = New ADODBCommandcmdActiveConnection = connFor i = 0 To 4If i =

Set conn = New ADODB.Connection conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\检测设备\力学\VBA测试\New.mdb"

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

For i = 0 To 4 cmd.CommandText = "insert into ParamFactValue(TestNo,littleNo,Name,TheValue,UserOrResultParam) values (?,?,?,?,?)" cmd.Parameters.Append cmd.CreateParameter("value0", adVarChar, adParamInput, 255, 1052) '检测过程的编号 cmd.Parameters.Append cmd.CreateParameter("value1", adVarChar, adParamInput, 255, i) '头编号

Select Case i
    Case 0
        cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, "试验项目号")
        cmd.Parameters.Append cmd.CreateParameter("value3", adVarChar, adParamInput, 255, Range("J8").Value)
        cmd.Parameters.Append cmd.CreateParameter("value6", adVarChar, adParamInput, 255, 0)
    Case 1
        cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, "试验编号")
        cmd.Parameters.Append cmd.CreateParameter("value3", adVarChar, adParamInput, 255, Range("J6").Value)
        cmd.Parameters.Append cmd.CreateParameter("value6", adVarChar, adParamInput, 255, 0)
    Case 2
        cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, "试样数目")
    Case Else 'i=3,4
        cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, "")
End Select

cmd.Execute
MsgBox i

Next i

conn.Close Set conn = Nothin