Mover registros de tabla a otra con vb6

[gavafra]

Ya los probe pero no, no me funciona. tengo el sig codigo
Tengo una tabla en access que se llama FOLIOS_USADOS a la cual le hago la siguiente consulta sql

Adodc1.RecordSource = "SELECT * FROM FOLIOS_USADOS WHERE DEFECHA BETWEEN #" & Text1 & "# And #" & Text2 & "#"
Ahora lo que quiero es insertar los registros que cumplan esa condicion a otra tabla llamada FOLIOS_HISTORICOS y puse la siguiente sql

Adodc2.RecordSource = "INSERT INTO FOLIOS_HISTORICOS SELECT * FROM FOLIOS_USADOS WHERE DEFECHA BETWEEN #" & Text1 & "# AND #" & Text2 & "#"

pero no me devuelve ningun registro.

No he puesto la sentencia sql DELETE porque quiero que primero me funcione la de pasar los registros a la tabla FOLIOS_HISTORICOS.
Alguna idea ? toda su ayuda ssera apreciada.