.CommandText = Array( _ <<<<<< ROT MARKIERT
strSQL = "select t_namen.id_name" <<<<<< ROT MARKIERT
strSQL = strSQL & "t_liste.id_training"
strSQL = strSQL & "t_namen.sum_zehn"
...

Der Unterstrich am Ende der Zeile heißt so viel wie "auf der mächsten Zeile geht die Anweisung noch weiter". In deinem Fall stimmt das aber nicht, denn da kommt eine neue Anweisung, nämlich eine Zuweisung an die Variable strSQL. Aus dem gleichen Grund wird dir auch diese Zeile (Zeile 2) angekreidet. Beide stehen also im Zusammenhang.

Wenn du eine SQL Abfrage schon auf diese Weise zusammen bastelst, solltes du erst am Ende diese an CommandText übergeben.

strSQL = "SELECT * "
strSQL = strSQL & "... "
strSQL = strSQL & "... "
'...
strSQL = strSQL & "WHERE ..."
.CommandText = strSQL

Außerdem schadet es nicht, sich die Ausgabe von strSQL mal anzusehen. Es kann leicht passieren das die nicht so endet, wie man es gerne hätte (z.B. Leerzeichen vergessen, sodass Ausdrücke aneinander geklatscht und nicht mehr ausgewertet werden können; oder Zeichenketten nicht mit " umschlossen sind).

strSQL = strSQL & "sum_zehn"
Order by
strSQL = strSQL & "t_liste.id_training desc ") <<<<<< ROT MARKIERT

Was soll das sein? 'Order by' ist Teil der SQL-Abfrage, aber irgendwie fehlt da was - findest du nicht? - und darum wird dir die nachfolgende Zeile rot angezeigt.

Geh bitte alles tippel-tappel-Tour nochmal durch. Kommentier aus was nicht geht und gib dir den Inhalt von strSQL aus. Wenn er nicht stimmt, überleg warum und korrigiere es. Dann starte wieder von vorn (Inhalt kontrollieren). Wiederhole das ganze so lange bis es stimmt.

Mehr kann man dazu nicht sagen. Um ehrlich zu sein scheitert es hier an den Grundlagen. ;(