Kopiere hel query over i tabel

Så er jeg her igen :)

Og den er gal med koden igen. Hvorfor virker min kode ikke denne gang? Jeg vil gerne have en hel kolonne fra min forespørgsel qryCustSearchList over i min tabel tblSearchResult:

Private Sub cmdAddAll_Click()
    Dim frm As Form, qry As Query
    Dim varItm As Variant

    Set frm = Forms!frmSearchMember
    Set qry = qryCustSearchList
    For Each varItm In qry.[Display name]
        sSQL = "INSERT INTO tblSearchResult ( display_name ) VALUES ('" & ctl.ItemData(varItm) & "') "
        CurrentDb.Execute (sSQL)
    Next varItm
   
Me![lstCustSearchResult].Requery

End Sub