busca no listview

Pessoal,

O código abaixo esta funcionando certinho....

GOSTARIA DE IMPLANTAR A SEGUINTE BUSCA NESSE CÓDIGO

Private Sub preenche_lista()On Error Resume NextTabela.CloseOn erro GoTo trataerro Tabela.Open "SELECT * FROM Produtos WHERE proDescricao LIKE '%" & Text1.Text & "%' ORDER BY proDescricao", ConexaolstMostra.ListItems.ClearDo While Not Tabela.EOF Set Lista = lstMostra.ListItems.Add(, , Tabela!proCodigo) Lista.SubItems(1) = Tabela!proDescricao Lista.SubItems(2) = Tabela!proQtde Lista.SubItems(3) = Tabela!proUnd Lista.SubItems(4) = Tabela!proCategoria Tabela.MoveNextLoopExit Subtrataerro: MsgBox Err.Description, vbCritical, "Erro no sistema"End Sub
Gostaria que se o código repetisse ele pulava para o próximo registro..... nao repetisse o mesmo código