Visual Basic - consulta codigo SQL

Hola a todos, tengo el siguiente codigo:

criterio="DELETE * FROM TABLA"
SET PERDN= datadb.openrecorset(criterio)
perd.update

mi consulta es: cuando hago esto me da un error de inconsistencia, lo que quiero que haga es que eliminte toda la tabla de una vez.

lo otro como hago a que atraves de una consulta SQL llene otra tabla con los mismo datos pero esta ultima seleccionado. es probado con el siguiente codifo y tampoco me resulta,

criterio ="INSERT TO tablanuv SELECT * FROM tablaorg"
set perd=datadbd.openrecorset(criterio)
perd.update

me pueden corrigir el codigo

Cuando usas Delete no generas ningun Recordset, por lo que en lugar de Openrecordset, utiliza Execute.