no puedo copiar registros de una bd a otra

[aprediendo]

Hola agradezco de antemano cualquier ayuda o idea, soy nuevo en esto.

quiero copiar un registro de una tabla a otra tabla, utilizo acces 97 y visual basic 6.0..

tengo el siguiente codigo.


tengo 2 tablas: (tablaorigen) y (tabladestino)

LO QUE QUIERO HACER ES QUE SI TEXT5.TEXT="0", ME SALTE UN MENSAJE DICIENDOME SI QUIERO AGREGAR ESTE REGISTRO A OTRA TABLA, EN ESTE CASO (tabladestino)

ACLARO QUE LAS DOS TABLAS TIENEN LA MISMA ESTRUCTURA.

MUCHAS GRACIAS POR SU AYUDA.....

If Text5.Text = "0" Then

' donde text5 es un campo de la "tablaorigen"


m = MsgBox("Desea agregar este item a tabladestino", vbYesNo, "AGREGA ESTE ITEM A tabladestino")


If m = vbYes Then
' si oprime si

SQL = "Insert Into tabladestino select tablaorigen.* from tablaorigen where campo="0""
end if
end if