Sub OpenAdoFile()
Dim myRecordset As ADODB.Recordset
Dim objExcel As Excel.Application
Dim myWorkbook As Excel.Workbook
Dim myWorksheet As Excel.Worksheet
Dim StartRange As Excel.Range
Dim h as Integer
Set myRecordset = New ADODB.Recordset
myRecordset.Open "C:\data.xml", "Provider=MSPersist"
Set objExcel = New Excel.Application
Set myWorkbook = objExcel.Workbooks.Add
Set myWorksheet = myWorkbook.ActiveSheet
objExcel.Visible = True
For h = 1 To myRecordset.Fields.Count
myWorksheet.Cells(1, h).Value = myRecordset.Fields(h - 1).Name
Next
Set StartRange = myWorksheet.Cells(2, 1)
StartRange.CopyFromRecordset myRecordset
myWorksheet.Range("A1").CurrentRegion.Select
myWorksheet.Columns.AutoFit
myWorkbook.SaveAs "C:\ExcelReport.xls"
Set objExcel = Nothing
Set myRecordset = Nothing
End Sub