I write a code to export data to the excel from database:

Set excelObj = CreateObject("Excel.Application")
xlsUrl = "D:\testing.xls"
Set sheetNew = excelObj.sheets.item(1)

Dim conn,rs,sql,conset
Set conn = CreateObject("adodb.connection")
set rs = createobject("adodb.recordset")
conset = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight32.mdb"
conn.open conset
sql="select * from orders"
rs.open sql,conn

Dim i
while not rs.eof
Value1 = rs("Order_Number").value
Value2 = rs("Customer_Name").value
sheetNew.cells(i+1,1).value = Value1
sheetNew.cells(i+1,2).value = Value2
i = i + 1
excelObj.activeworkbook.saveas "D:\testing.xls"
set excelObj = nothing
set rs=nothing
set conn = nothing

After I run this code,there is five errors:


why?I check this code for many times and i can't find why there is five errors.I guess the issue may be caused by the edition of my office,my office is 2007,so excel edition is also 2007,does anybody tell me how to deal with this problem.Thanks for advance.