QTP用ADO连接Excel表更新表中数据出错

arvin45

如题目所说的，我的脚本如下：
Dim Sql_Connection,Sql_Command, Obj_Excel,Obj_EData
Sql_Connection="DSN=Excel Files;DBQ="&Environment.Value("TestDir")&"\..\cases\"&ExcelFile&".xlsx"

Sql_Command="Select * From ["&Sheetname&"$]"
Set Obj_Excel=CreateObject("ADODB.Connection")
Obj_Excel.Open Sql_Connection
Set Obj_EData=CreateObject("ADODB.Recordset")
Obj_EData.Open Sql_Command, Obj_Excel, 2, 2

Obj_EData.MoveFirst   
While Not Obj_EData.EOF

If Obj_EData.Fields("OperateType").Value = "AddEvent" Then

Obj_EData.Fields("Status").Value = "Running"
Obj_EData.Update

End If

Obj_EData.MoveNext
Wend
ClearObject


运行QTP会弹出提示框，如图所示，请问如何解决呢