Visual Basic - como hacer insert

Hola a todos!
¿Alguien sabe cómo hacer la inserción de todos los registros de una tabla?
algo como:
sql="insert into TABLA select * from TABLAORIGEN"
Asi me da error .Muchas gracias.

INSERT INTO destino [IN basededatosexterna] [(campo1[, campo2[, ...]])]
SELECT [origen.]campo1[, campo2[, ...]
FROM expresióntabla

Hola

espero que esto te sirva.

'-----------------------------------------
Dim Db As New ADODB.Connection
Dim Reg As ADODB.Recordset

sSQL="INSERT INTO TablaDestino " & _
"SELECT COD, PLANTA, CODLOCAL" & _
"FROM TablaOrigen WHERE (COD=1)"

Set Db = New ADODB.Connection

Db.Open Conexion

Db.BeginTrans ' comenzar Transaccion
Db.Execute sSQL 'ejecuta la consulta

if MsgBox("¿Guardar los Cambios?", vbQuestion + vbYesNo, "Pregunta") = vbNo then
Db.RollbackTrans 'dejo la tabla como estaba antes del insert
else
Db.CommitTrans 'Guardar Cambios
endif
'---------------------------

en el Db.Execute es posible ejecutar las consultas como el Insert, Delete, Update, etc.

la sintaxis del insert es como te lo indica Ruben

Suerte.

Ariel...