Excel SaveAs Error 1004 (1 Viewer)

 .....       Set qd = db.CreateQueryDef("", strSQL)
        Set rs = qd.OpenRecordset
        
   
    Dim xlApp As Excel.Application
    Dim xlBook As Workbook
    Dim xlSheet As Worksheet
    Dim file_str As String
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets("Sheet1")
    
    xlSheet.Range("a2").CopyFromRecordset rs
    
    For i = 1 To rs.Fields.Count
        xlApp.ActiveSheet.Cells(1, i).Value = rs.Fields(i - 1).Name
    Next i
    xlApp.Cells.EntireColumn.AutoFit
        
    xlBook.SaveAs ("C:\ComponentList.xlsx")
    xlBook.Close
    xlApp.Quit
  
    Set xlApp = Nothing
    Set xlBook = Nothing
    Set xlSheet = Nothing