Visual Basic - Obtener registros con Dao

Tengo un Insert update y un delete quiero saber la instruccion para el caso del delete de saber la cantidad de registros que me borro.
Probe con:

Dim Aux as integer
Dim RecValor as Recordset
Dim Db as Database

Aux = db.execute("Delete From Tabla where id = 3")
***************** Otro ***************
db.execute "Delete From Tabla where id = 3", Aux
***************** Otro ***************
set RecValor = db.openrecordset("Delete From Tabla where id = 3",Aux)

No se como hacer para que me almacene la cantidad de registros que elimino.
Gracias

sin intencion de ofenderte, pero me parece que estas haciendo al reves,
vos primero tenes que saber cuantos registros hay (coinciden con el criterio) y despues los borras, y no
primero los borras y despues preguntas cuantos son, entendes lo que planteo

Entonces se me ocurre que podes hacer esto
arma en un nuevo recordset los registros que cumplan determinado criterio por ej ID = 3
obtene el recordcount de ese recorset que contiene esos registros y esto te da la cantidad,
preguntas al usuario si los quiere borrar todos y luego entonces los borras del primero al ultimo y actualizas la base y listo.
No te vuelvas loco man, busca lo practico y sencillo para programar, no lo rebuscado y complicado, sino en poco tiempo te tendras que internar por el stress, jajajaja
tal vez a otro se le ocurra alguna otra idea, pues bienvenida
bueno man suerte