Visual Basic - rapido por favor, vaciar tabla

Adodc2.Refresh
Adodc2.Recordset.MoveFirst
While Adodc2.Recordset.EOF = False
Adodc2.Recordset.Delete
Adodc2.Recordset.MoveFirst(tb he puesto move next)
Wend

Este es el codigo que utilizo para vaciar por completo un tabl de una base de datos de access, pero nunca me borra el primer registro,¿sabeis por ke?

Si quieres vacias por completo la tabla utiliza este otro codigo es mas largo pero es seguro, te estas conectando por ADO entonces haremos la conexión para luego vaciar la tabla, en la cadena de la conexion si tienes ACCESS 2000 es "4.0" y si es ACCESS 97 es "3.5"
Dim sql As String
Dim cnbase As ADODB.Connection
Private Sub cmdVaciarTabla_Click()
On Error GoTo Errores

Conectar 'Hacemos la conexión, luego vaciamos la Tabla
cnbase.Execute "Delete * From TuTabla"
cnbase.Close 'Cerramos la conexion
Set cnbase = Nothing
Errores:
If Err.Number <> 0 Then Errores
End Sub
Sub Conectar()
On Error GoTo Errores
Dim Ruta As String
Dim NomBase As String
NomBase = "BaseDatos.mdb" 'Nombre de la BD de ACCESS
Ruta = App.Path & "\" & NomBase 'Direccion donde se encuentra tu BD de ACCESS
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & ""
Set cnbase = New ADODB.Connection
cnbase.ConnectionString = Conexion
cnbase.Open Conexion
Errores:
If Err.Number <> 0 Then Errores
End Sub
Sub Errores()
Msg = "Error Ocasionado Por:" + Chr(13) + Err.Description
MsgBox Msg, vbCritical, "Error" + Str(Err.Number)
Err.Clear
End Sub