Insert into not working

[mp3909]

I am trying to execute the below but when I go and view the table "tblRecipientsForCustomEmail", it's empty.
Is there anything that looks wrong in my sql code?
I checked the spelling too and even put a debug.print statement to see what the SQL statement looks like.

dim sSQL = ""

sSQL = "INSERT INTO tblRecipientsForCustomEmail"
sSQL = sSQL & vbNewLine & "SELECT L.EntityName, r.Email, L.BTMU_Relationship_Office"
sSQL = sSQL & vbNewLine & "FROM Limit_Exposure_Report_All L, tblRecipients r"
sSQL = sSQL & vbNewLine & "WHERE L.BTMU_Relationship_Office = r.[Relationship Office]"
sSQL = sSQL & vbNewLine & "AND L.EntityName IN (" & sCompanies & ")"

Debug.Print sSQL
CurrentDb.Execute sSQL

[ranman256]

Stop using SQL code and use a query.
it won't get the SQL wrong and will tell you WHAT is wrong .

[Micron]

when I go and view the table "tblRecipientsForCustomEmail", it's empty.

Did you already have the table open and just not know that you have to refresh the view?
You copied the output and pasted into a new query and tried to run it and nothing happens?
I would not use .Execute without dbFailOnError. Is there a reason why you don't?
CurrentDb.Execute sSQL, dbFailOnError

[Minty]

What does sCompanies look like?

And taking a step back, based on your table name, could you not simply query the email addresses for the email routine ?

[mp3909]

I was making the wrong connection in the tables of my sql query.
All fixed now thank you

[ssanfu]

NOTE: you cannot declare a variable like this

Dim sSQL = ""

It MUST be like this

    Dim sSQL As String

    sSQL = ""

But you can declare constants like this

    Const timmy As Long = 210865