Visual Basic - INSERT INTO, PROBLEMAS CON FECHAS

Hola, a ver si alguien me puede ayudar por favor, quiero copiasr unos registros de una tabla a otra dentro de la misma base de datos, el codigo es el siguiente:

Dim FechaInicio As Date
Dim FechaFinal As Date


FechaInicio = DTPicker1.Value
FechaFinal = DTPicker2.Value

cnnConeccion.Execute "DELETE * FROM OrientacionAlimentaria INSERT INTO OrientacionAlimentaria
strQuery = "SELECT * FROM bdOrientacionAlimentaria WHERE FECHA BETWEEN #" & FechaInicio & "# AND #" & FechaFinal & "# "

hola valeria:

¿estas segura que tu problema es de fechas?
¿que error te marca?

saludos