优化：Private Sub CommandButton2_ClickDim conn As ADODBConnectionDim strTime As Date strTime1 As Date strTime2 As DateSet conn = New ADODBConnectionconnOpen Provider=MicrosoftACEOLEDB120;Data Source=E检测设

Private Sub CommandButton2_Click() Dim conn As ADODB.Connection Dim strTime As Date, strTime1 As Date, strTime2 As Date Set conn = New ADODB.Connection

'设置连接字符串
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\检测设备\导热系数测定仪\drxs\ZWH.mdb"

'获取时间数据
strTime = Range("N4").Value
strTime1 = Range("O4").Value
strTime2 = Range("P4").Value

'创建命令对象
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "insert into 测试报告(序号,采样时间,采样时间1,采样时间2) values (?,?,?,?)"

'添加参数
cmd.Parameters.Append cmd.CreateParameter("序号", adVarChar, adParamInput, 255, Range("B5").Value)
cmd.Parameters.Append cmd.CreateParameter("采样时间", adDate, adParamInput, , strTime)
cmd.Parameters.Append cmd.CreateParameter("采样时间1", adDate, adParamInput, , strTime1)
cmd.Parameters.Append cmd.CreateParameter("采样时间2", adDate, adParamInput, , strTime2)

'执行SQL语句
cmd.Execute

'关闭连接
conn.Close
Set conn = Nothing

End Su