[Resolvido]Transpor Tabela em uma linha

Primeiramente, boa tarde a todos.

Minha dúvida é a seguinte: Eu tenho uma tabela com a seguinte informação:
Nome ID Freq
94 1 537
94 2 566
94 3 603
94 4 550
95 5 529
95 6 586
95 7 555
95 8 578
96 9 525
96 10 561
96 11 548
98 5 608
98 6 598

E gostaria de transformá-la assim:

1 2 3 4 5 6 7 8 9 10 11 12
94 537 566 603 550
95 529 586 555 578
96 525 561 548
98 608 598

Alguém saberia como me ajudar?
Att,

Notei que o número de colunas pode variar, não? Você já tem uma tabela pronta para receber a nova forma? Talvez seja o caso de se ter uma tabela para receber o primeiro número, aquele que repete, e outra relacionada para receber os demais.

Boa tarde, bruno

Suponha que tem uma tabela denominada Tabela2 (para receber o resultado)
dim Rst1 as dao.recordset, UltimoNome as Integer,Campo as integer
set rst1=currentdb.openrecordset("SELECT Nome,Freq FROM SuaTabela ORDER BY Nome,ID;")
currentdb.execute "DELETE * FROM Tabela2;"
do while not rst1
if rst1.absoluteposition=0 OR rst(0)<>ultimonome then
currentdb.execute "INSERT INTO Tabela2(Nome) VALUES (" & RST1(0) & ");"
CAMPO=1
END IF
CAMPO=CAMPO+1
currentdb.execute "UPDATE Tabela2 SET " & CAMPO &"=" & RST1(1) & ");"
rst1.movenext
loop
set rst1=nothing

Opa amigos, muito obrigado pela resposta. Usei a sugestão do criquio e criei uma tabela do jeito que eu queria e depois usei um loop para resolver. Como a tabela vai no máximo até 23, ficou fácil.

Function transpor()
Dim StrSql As String
Dim i As Integer
i = 1
Do While i < 23
DoCmd.SetWarnings False
StrSql = "UPDATE Sera1 INNER JOIN Tabela2 ON Sera1.BTS = Tabela2.BTS SET Tabela2.TRX" & i & "= [sera1]![initialFrequency]" _
& "WHERE (((Sera1.trxId)=" & i & "));"
DoCmd.RunSQL StrSql
i = i + 1
Loop
End Function

Att,