Отчего же? Можно, но... тормоз обеспечен, да и есть ограничения.
1. Объявляем строковую переменную

Dim SqlStr As String

2. Открываем Recordset

Set rs = db.OpenRecordset("SELECT ID FROM [Подсчёт баллов];")

3. Позиционируем его в начало

rs.MoveFirst

4. В цикле по записям рекордсета формируем строку (цикл опускаю)

SqlStr = SqlStr + rs.Fields("ID").Value + ","

5. Приводим строку к окончательному виду

SqlStr = Mid(SqlStr, 1, Len(SqlStr) - 1)
SqlStr = "Select " + Replace(SqlStr, ",", " union all Select ")

6. Собственно, делаем вставку

db.Execute "INSERT INTO Temp (ID) " + SqlStr

Правда, не уверен, что эта ботва будет на акцессе работать. На MSSQL прокатит стопудово.