DoCmd.TransferText - eksport af forespørgsel til .csv med brugerdefineret filsti

Jeg får fejl i DoCmd.TransferText
Kan i hjælpe med hvad der er galt

Dim strPath As String, SQL As String, qdf As DAO.QueryDef

strPath = CurrentProject.Path
SQL = "SELECT Firma.Firma AS Text1, ........................
Set qdf = CurrentDb.CreateQueryDef("TEMPQuery", SQL)
DoCmd.TransferText acExportDelim, , "TEMPQuery", strPath & "\ERP_Gantt_Project_Leverancer.csv"
CurrentDb.QueryDefs.Delete "TEMPQuery"