Cambiar Columnas a Filas

[Taribo007]

Prueba algo similar a esto:

Dim rstRecorrer As DAO.Recordset
Dim rstInsertar As DAO.Recordset

Set rstRecorrer = CurrentDb.OpenRecordset("Select * from Tabla")
Set rstInsertar = CurrentDb.OpenRecordset("Select * from TablaNueva")

While Not rstRecorrer.EOF
For i = 1 To 3
rstInsertar.AddNew
rstInsertar!Comercial = rstRecorrer!Comercial
rstInsertar!Cliente = rstRecorrer!Cliente
rstInsertar!Producto = rstRecorrer("Producto" & i)
rstInsertar.Update
Next
rstRecorrer.MoveNext
Wend

rstRecorrer.Close
rstInsertar.Close
Set rstInsertar = Nothing
Set rstRecorrer = Nothing

Tendras que activar la referencia a Microsoft Dao x.xx object library

Un saludo