Anular um ou vários registos em tabela com condição

Boa tarde Amigos
Estou a usar o código abaixo par eliminar registos em uma tabela ao clicar num botão num formulário continuo.

CurrentDb.Execute "DELETE * FROM adiantado WHERE Cliente = '" & [Cliente] & "'"

Mas queria eliminar ao clicar todos os registos de um cliente(campo texto)ao mesmo tempo, mas só está a eliminar um a um.

Aonde erro ?

Obrigado

O botão para excluír no form continuo aparece ao lado de cada registo ?

Esta instrução, deleta todos os registos da tabela, onde o Cliente for = xpto, não deleta um a um.

Código:

CurrentDb.Execute "DELETE * FROM adiantado WHERE Cliente = '" & Me![Cliente] & "'"
Me.Requery