Set DBCON = CreateObject("ADODB.CONNECTION")
DBCON.Open "QT_FLIGHT32"
Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Workbooks.Open "C:\ORDERINFO.XLS"
Set NewSheet = ExcelObj.Sheets.Item(1)
SET RESULTSET=DBCON.Execute ("SELECT ORDER_NUMBER,CUSTOMER_NAME FROM ORDERS")
For X=1 TO 10
ORDER=RESULTSET.Fields ("ORDER_NUMBER")
CUSTOMER=RESULTSET.Fields ("CUSTOMER_NAME")
NewSheet.Cells(X,2)=ORDER
NewSheet.Cells(X,3)=CUSTOMER
RESULTSET.MoveNext
Next
ExcelObj.ActiveWorkbook.Save
ExcelObj.Application.Quit
Set ExcelObj = Nothing