[Resolvido]Como se apaga os items de uma listbox

Boas pessoal, gostava de saber como se limpa uma list box sem apagar o que tenho numa tabela sei que existe esse método "Me.Yourlistbox.Rowsource = "" " o problema que volto adicionar um produto já não aparece. Alguma sugestão?

Veja se ajuda;

http://maximoaccess.forumeiros.com/t9241-resolvidoremover-linha-selecionada-da-listbox

Tentei todas as formas acho que não da para fazer.

Porque eu tenho duas list box, por exemplo

ListboxA(Mostra todos os produtos da tabela produto) e tenho outra lixtbox b(Mostra toda a lista de uma outra tabela, só que ela esta vazia)
E então tenho um botão adicionar com o seguinte código:

Dim index As Integer
index = Me.lstcliente.ListIndex + 1

DoCmd.RunSQL "insert into Fardamento([Nome], [Produto], [Preço], [Stock]) values('" & Me.C18.Column(1) & "', '" & Me.lstcliente.Column(1, index) & " ','" & Me.lstcliente.Column(2, index) & "' , '" & Me.lstcliente.Column(3, index) & "')"

Me.Lista1.Requery

Fasso isso para adicionar na list box B, agora a minha dúvida é apagar os items que tenho na listbox B sem apagar o que tenho na tabela fardamento.

Então o amigo já poderia ter dito que queria passar valores de uma lista para outra;

http://maximoaccess.forumeiros.com/t6072-resolvidomover-de-listbox-para-listbox

Obrigado JPaulo, ainda estou a tentar a fazer várias opções para ver se resolve esse problema.

Problema resolvido!!  Obrigado pela ajuda pessoal

Obrigado pelo retorno o forum agradece.