Borrar Registros entrte dos Fechas

Estoy Hacuewndo un reporte en VB6 con el Data report, la cosa es que después de mucho buscarles me ha sido bien hasta las ne gritas, después como vera estoy tratando de eliminar registros que no requiere el usuario, y me borra todos los registros.
Espero que me pueda ayidar a detectar el problema en mi delete porque estoy desesperada
Private Sub Command4_Click()
Cn.Execute "Delete * from BITATEMP"
fecha1 = "01/01/2009"
fecha2 = DTPicker1.Value
'CargaRecordSet ("Select Usuario.NomUsuario,tiposoporte.tiposoporte,pendientes.pendiente,pendientes.fechai,pendientes.fechat,pendientes.horai,actividades.activida,pendientes.equipopen,pendientes.idp from (((pendientes inner join Usuario on pendientes.tecnicopen=Usuario.idu)inner join tiposoporte on pendientes.ambitopen=tiposoporte.idts)inner join actividades on pendientes.tactivid=actividades.ida) where pendientes.fechat Like '%" & Trim(DTPicker2.Value) & "%' and pendientes.terminada Like '%" & Trim("S") & "%' and pendientes.tecnicopen Like '%" & Trim(tecnicobx) & "%' ")
CargaRecordSet ("Select Usuario.NomUsuario,tiposoporte.tiposoporte,pendientes.pendiente,pendientes.fechai,pendientes.fechat,pendientes.horai,actividades.activida,pendientes.equipopen,pendientes.idp from (((pendientes inner join Usuario on pendientes.tecnicopen=Usuario.idu)inner join tiposoporte on pendientes.ambitopen=tiposoporte.idts)inner join actividades on pendientes.tactivid=actividades.ida) where (pendientes.fechat between # " & "01/01/2009" & " # and # " & DTPicker2.Value & " #) and pendientes.terminada Like '%" & Trim("S") & "%' and pendientes.tecnicopen Like '%" & Trim(tecnicobx) & "%' order by pendientes.fechat")
If Rs.EOF = True Then
MsgBox ("Registros no encontrados")
Else
Do
With Rs
iNumX = Maximo("Select Max(IDTEMP) From BITATEMP")
IDPEND = Rs!idp
TECNICO = Rs!NomUsuario
DIVISION = Rs!tiposoporte
PENDIEN = Rs!pendiente
FECHAIN = Rs!fechai
FECHATE = Rs!fechat
DURACION = Rs!horai
ACTIVIDADT = Rs!activida
EQUIPOT = Rs!equipopen
If DIVISION = "COMPUTO" Then
CargaRecordSetX ("select seriec from equpocomputo1 where idec =" & EQUIPOT)
EQUIPOT = RsX!seriec
End If
If DIVISION = "COMUNICACIONES" Then
CargaRecordSetX ("select noserie from equipocom where idem =" & EQUIPOT)
EQUIPOT = RsX!noserie
End If
If DIVISION = "HERRAMIENTAS" Then
CargaRecordSetX ("select noserie from equipovarios where idem =" & EQUIPOT)
EQUIPOT = RsX!noserie
End If
If DIVISION = "MEDICO" Then
CargaRecordSetX ("select noserie from equipomedico where idem =" & EQUIPOT)
EQUIPOT = RsX!noserie
End If
If DIVISION = "ELECTROMECANICA" Then
CargaRecordSetX ("select noserie from equipoelect where idem =" & EQUIPOT)
EQUIPOT = RsX!noserie
End If
If DIVISION = "MANTENIMIENTO DE EDIFICIO" Then
EQUIPOT = "NINGUN EQUIPO"
End If
Cn.Execute "Insert into BITATEMP(TECNICO,DIVISION,PENDIEN,FECHAIN,FECHATE,DURACION,ACTIVIDADT,EQUIPOT,IDPEND,IDTEMP) Values ('" & TECNICO & "','" & DIVISION & "','" & PENDIEN & "','" & FECHAIN & "','" & FECHATE & "','" & DURACION & "','" & ACTIVIDADT & "','" & EQUIPOT & "','" & IDPEND & "','" & iNumX & "')"
.MoveNext
End With
Loop While Not Rs.EOF
Cn.Execute "Insert into BITATEMP(TECNICO,DIVISION,PENDIEN,FECHAIN,FECHATE,DURACION,ACTIVIDADT,EQUIPOT,IDPEND,IDTEMP) Values ('" & TECNICO & "','" & DIVISION & "','" & PENDIEN & "','" & FECHAIN & "','" & FECHATE & "','" & DURACION & "','" & ACTIVIDADT & "','" & EQUIPOT & "','" & IDPEND & "','" & iNumX + 1 & "')"

sentencia = "Delete from BITATEMP where FECHATE between # " & fecha1 & " # and # " & fecha2 & " #"
'sentencia = "Delete * from Archivos "
Cn.Execute (sentencia)
DataReport7.Refresh
DataReport7.Show
End If