Try using following
' rst is a recordset
dim xl as Excel.Application
dim wb as Excel.WorkBook
dim ws as Excel.Worksheet
set xl=CreatObject("Excel.Application")
xl.visible=true
set wb=xl.Workbooks.Add
set ws=xl.worksheets(1)
for fieldno=0 to rst.Fields.count-1
ws.Range(Chr(fieldno+65) & "1")=rst.fields(fieldno).Name
next
for recno=1 to rst.RecordCount
for fieldno=0 to rst.Fields.count-1
ws.Range(Chr(fieldno+65) & recno )=rst.fields(fieldno).Value
next
next
'save workbook
for more
mailtorafiq@yahoo.com