Visual Basic - urgente! tabla historica

quisiera saber como pasar registros de una tabla q van a ser eliminados de una tabla de ventas a otra de historicos, se me ocurrio lo siguiente pero no funciona:

lstrCodProd = rstqryMovVta!idproducto
lstrQry = " INSERT INTO HdetVenta "
lstrQry = lstrQry & "SELECT * "
lstrQry = lstrQry & "FROM [qryMovVta] Where qryMovVta!Idproducto = " & lstrCodProd

gracias

No dices si utilizas Ado, o conexion pura o como lo haces.. ni tampoco que error te da

La sintaxys para eso es sencilla :

insert into TABLA1 select * from TABLA2 where CAMPO=DATO

No se ocupan los [ ] ni tampoco eso de poner los !