DoCmd.RunSQL INSERT INTO

Hola a todos

Access 2002

Veran tengo una consulta de Datos Anexados, El sql de
esta consulta es el siguiente:

INSERT INTO ItemsinOrder ( ItemId, Status, FolderId,
SiteId, Title, Format, Quantity, Duration, StartPrice,
BinPrice, Modified, StartTime, EndTime, ItemXML,
ebayItemId, Fees, ComputedAttributes, ErrorMessage )
SELECT Items.ItemId, Items.Status, Items.FolderId,
Items.SiteId, Items.Title, Items.Format, Items.Quantity,
Items.Duration, Items.StartPrice, Items.BinPrice,
Items.Modified, Items.StartTime, Items.EndTime,
Items.ItemXML, Items.ebayItemId, Items.Fees,
Items.ComputedAttributes, Items.ErrorMessage
FROM Items INNER JOIN Transito ON Items.ItemId =
Transito.ItemIdTransito
WHERE (((Items.Status)=2));

Que toma de la tabla Items y Transito (donde los campos
sean igual a 2) su contenido y
lo envia a la tabla itemsinOrder

Pero como paso la larga instruccion SQL para usarla en VB
utilizando DoCmd.RunSQL

Dim SQL As String

SQL = ??????

DoCmd.RunSQL SQL

He tratado de buscar en los grupos tanto en Español como
en Ingles y no encuentro nada
Estoy frustado un poco, espero que alguien me pueda ayudar

Gracias
Antonio Macias