Access - Exportar a excel cadena de texto SQL

Private Sub CmdExportaExcel_Click()

Dim Xls As Object, XlBook As Object, SqlStr As String

        SqlStr = "SELECT * FROM Tabla WHERE ... ORDER BY ....."

        '

        Set Xls = CreateObject("Excel.Application")

        Set XlBook = Xls.Workbooks.Add

        Xls.activesheet.Range("A1") = SqlStr

        Xls.ActiveWorkBook.SaveAs FileName:="C:\Temp\1111.xlsx"

        Xls.Quit

        Set Xls = Nothing

End Sub