Visual Basic - Problemas con Bases de datos

Hola.

Estoy trabajando en VB. 6.0 con conexión a una bd. Ingreso una fechas en una tabla, cuando voy hacer una consulta de esas fechas, procedo a enviarlas a una tabla de apoyo que solo las utilizo para las consultas de las fechas.
Invoco la consulta de un frame, donde llamo a otro frame que contiene un datagrid conectado a un adodc que a su vez esta conectado a la bd de origen, cuando hago las consultas, procedo a borrar de la tabla de apoyo de las consultas pasadas para ingresar las nuevas, pero no me esta ingresando a esa tabla, que puedo hacer???

este es el codigo:
Set rstl = New ADODB.Recordset
strl = "delete * from Q_FechasPub"
rstl.Open strl, conexion

Dim strseleccionar1 As String
Dim rstseleccionar1 As ADODB.Recordset
Set rstseleccionar1 = New ADODB.Recordset

strseleccionar1 = "INSERT INTO Q_FechasPub SELECT * FROM FECHASPUB_ WHERE PUB_FECHA=#" & cldpub.Value & "#"
'MsgBox strseleccionar1
rstseleccionar1.Open strseleccionar1, conexion
MsgBox "Seleccionando Fechas....", vbOKOnly + vbInformation,
"S E L E C C I O N A N D O"
CON_FECHASPUB.Show

Nota: el cldpub es un calendario