优化代码：Private Sub CommandButton66_Click 设置数据库连接 Dim conn As Object Set conn = CreateObjectADODBConnection connOpen Provider=MicrosoftACEOLEDB120;Data Source=E检测设备压力试验机新vba & destinationDat

Private Sub CommandButton66_Click() ' 设置数据库连接 Dim conn As Object Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\检测设备\压力试验机\新vba" & destinationDatabase

' 设置SQL语句
Dim strSQL_TestNoParam As String
Dim val_TestNo As Integer
Dim i As Integer

' 获取初始值
val_TestNo = Range("H7").Value

' 循环更新数据
For i = 0 To 2
    strSQL_TestNoParam = "UPDATE TestNoParam SET TestNo=" & val_TestNo + i & ", SaveFileName='" & destinationDatabase & "' WHERE ID=" & 5 + i & ";"
    
    ' 执行SQL语句
    conn.Execute strSQL_TestNoParam
Next i

' 关闭数据库连接
conn.Close

End Su