Run Time Error 1004 when trying to create a Query Table

Sub Test()
    Dim strConnect      As String
    Dim strSQL          As String
    Dim Provider        As String
    Dim DataSource      As String
    Dim Extended        As String
    
    Provider = "Microsoft.ACE.OLEDB.12.0"
    DataSource = ThisWorkbook.FullName
    Extended = """Excel 12.0;HDR=YES;"""
    strConnect = "Provider=" & Provider & ";" & _
                 "Data Source=" & DataSource & ";" & _
                 "Extended Properties=" & Extended & ";"
    strSQL = ThisWorkbook.Names("SQLLetters").RefersToRange.Value
    
    Dim ws              As Worksheet
    Dim dest            As Range
    Dim qt              As QueryTable
    
    Set ws = Sheets("QueryLetters")
    Set dest = ws.Range("A1")
    
    Set qt = ws.ListObjects.Add(SourceType:=xlSrcQuery, Source:=strConnect, Destination:=dest).QueryTable
End Sub

strConnect and dest look correct to me. The destination worksheet is empty.

Any ideas why I get Run-time error '1004': Application-defined or object-defined error???