Tu pregunta es como ejecuto un consulta en access y el proceso de la consulta es eliminar datos
Si estas utilizando ADO es asi:
dim borrar as adodb.connection
dim delete as string
dim buscar as string
dim rs as adodb.recordset
buscar = "select * from tabla where "
set rs = conec.execute(buscar)
if not rs.eof then
borrar = "delete from tabla where "
conec.execute(buscar)
endif