query con nome tabella variabile che non worka

[ShAdOw WaLkEr]

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

secondo voi perchè mettendo nel SQL TableName non me lo legge come variabile? .-. come dovrei cambiare questo codice perchè capisca che table name è una variabile?

non capisce che è una variabile e mi dice che non trova la tabella TableName :/