修复代码：Set conn = New ADODBConnectionconnOpen Provider=MicrosoftACEOLEDB120;Data Source=E检测设备力学VBA测试NewmdbDim cmd As ADODBCommandSet cmd = New ADODBCommandcmdActiveConnection = connFor i = 0 To 1cmdComm

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 1 cmd.CommandText = "insert into ParamFactValue(TestNo,littleNo,Name,UserOrResultParam) values (?,?,?,?)" cmd.Parameters.Append cmd.CreateParameter("value0", adVarChar, adParamInput, 255, 1052) '检测过程的编号 cmd.Parameters.Append cmd.CreateParameter("value1", adVarChar, adParamInput, 255, i) '头编号 cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, "试验项目号") cmd.Parameters.Append cmd.CreateParameter("value6", adVarChar, adParamInput, 255, 0) cmd.Execute Next i For i = 1 To 2 cmd.CommandText = "insert into ParamFactValue(TestNo,littleNo,Name,UserOrResultParam) values (?,?,?,?)" cmd.Parameters.Append cmd.CreateParameter("value0", adVarChar, adParamInput, 255, 1052) '检测过程的编号 cmd.Parameters.Append cmd.CreateParameter("value1", adVarChar, adParamInput, 255, i) '头编号 cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, "试验编号") cmd.Parameters.Append cmd.CreateParameter("value6", adVarChar, adParamInput, 255, 0) cmd.Execute Next i For i = 2 To 3 cmd.CommandText = "insert into ParamFactValue(TestNo,littleNo,Name,UserOrResultParam) values (?,?,?,?)" cmd.Parameters.Append cmd.CreateParameter("value0", adVarChar, adParamInput, 255, 1052) '检测过程的编号 cmd.Parameters.Append cmd.CreateParameter("value1", adVarChar, adParamInput, 255, i) '头编号 cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, "试样编号") cmd.Parameters.Append cmd.CreateParameter("value6", adVarChar, adParamInput, 255, 0) cmd.Execute Next i For i = 3 To 4 cmd.CommandText = "insert into ParamFactValue(TestNo,littleNo,Name,UserOrResultParam) values (?,?,?,?)" cmd.Parameters.Append cmd.CreateParameter("value0", adVarChar, adParamInput, 255, 1052) '检测过程的编号 cmd.Parameters.Append cmd.CreateParameter("value1", adVarChar, adParamInput, 255, i) '头编号 cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, "试样数目") cmd.Parameters.Append cmd.CreateParameter("value6", adVarChar, adParamInput, 255, 0) cmd.Execute Next i For i = 4 To 5 cmd.CommandText = "insert into ParamFactValue(TestNo,littleNo,Name,TheValue,Unit,UserOrResultParam) values (?,?,?,?,?,?)" cmd.Parameters.Append cmd.CreateParameter("value0", adVarChar, adParamInput, 255, 1052) '检测过程的编号 cmd.Parameters.Append cmd.CreateParameter("value1", adVarChar, adParamInput, 255, i) '头编号 cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, "试样初始厚度h0") cmd.Parameters.Append cmd.CreateParameter("value3", adVarChar, adParamInput, 255, 40) cmd.Parameters.Append cmd.CreateParameter("value4", adVarChar, adParamInput, 255, "mm") cmd.Parameters.Append cmd.CreateParameter("value6", adVarChar, adParamInput, 255, 0) cmd.Execute Next i conn.Close Set conn = Nothin