Rutina eliminar toda la información de una tabla

'en el botón que activa este timer (TimDelete) se debe hacer un query
'para seleccionar la tabla a eliminar
'ejemplo ado.recordset.recordsource = "select * from tablax" son su respectivo
'refresh en la siguiente linea
'La tabla debe tner un campo numerico llamado (numero) es la calve para buscar y eliminar

Private Sub TimDelete_Timer()
Dim i As Integer, Criterio

Screen.MousePointer = 11'colocar reloj de arena en puntero
With Tem
.RecordSource = "select * from HISTORIALPAGOSA"
.Refresh
If .Recordset.EOF Or .Recordset.BOF Then
Else
    .Recordset.MoveFirst
    Criterio = Val(.Recordset!NUMERO)
    'bar1.min = 0
    'bar1.max = .recordset.recordcount
    'bar1.value = 0
    'bar1.visible = true                  
  
    For i = 1 To .Recordset.RecordCount
        'aca llenas barra de proceso ejemplo
    'bar1.value = bar1.value + 1
    .Recordset.MoveFirst
        .Recordset.Find ("NUMERO Like '") & Criterio & "'"
        .Recordset.Delete
        .Recordset.MoveNext
        If .Recordset.EOF Then
        Exit For
        Else
        Criterio = Val(.Recordset!NUMERO)
        End If
    Next i
End If
End With
Screen.MousePointer = vbDefault
'bar1.visible = false
TimDelete.Enabled = False

End Sub

El siguiente formulamulario es un ejemplo de como usar este codigo :
SOLO CAMBIENLE LA EXTENSION A .RAR
Requerimientos para Instalar este Programa
-CRAdv922 o Crystal Report
-Sistema Operativo Windows XP SP3