per concatenarla intendi così'?

codice:
Private Sub accoda()
Dim TableName As String
TableName = [Forms]![NuovoProgetto]![Numero progetto]
Dim strSQL As String
strSQL = "INSERT INTO &TableName& SELECT [Selezione record voluti].*FROM [Selezione record voluti];"
CurrentDb.Execute strSQL
End Sub
perchè mi da errore in insert into...