Visual Basic - BORRAR TODOS LOS REGISTROS DE UNA TABLA

HOLA!!

TENGO EL SIG PROBLEMA QUIERO BORRAR TODOS LOS REGISTROS DE LA TABLA Y USO EL SIG CODIGO
'numreg es el numero de registros
Set rstPreguntasListView = New ADODB.Recordset
ssql = "SELECT * FROM GE_Manual"
rstPreguntasListView.Open ssql, cn, adOpenDynamic, adLockOptimistic
rstPreguntasListView.MoveFirst
For i = 1 To numreg
rstPreguntasListView.Delete
rstPreguntasListView.update
rstPreguntasListView.MoveNext
Next

el problema de este ciclo es que no borra todos los registros siempre deja minimo 1 sino es que mas, espero que exista una instruccion o una forma para borrar todos los registros de la tabla.

de antemano gracias

Es mas sencillo y rápido que eso. Ejecuta la consulta SQL siguiente:

"DELETE * FROM GE_Manual"

y los borra todos de golpe

YA HICE PRUEBAS Y SI ME SIRVE

MUCHAS GRACIAS ALBERTO TE DEBO UNA

Esa respuesta o solución a mi no me funciona correctamente hay que poner algo más en la consulta