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