Selecionar mi de um registro em uma só acção

Dim busca As String

busca = InputBox("Digite aqui o Nome a ser pesquizado")

tabprod.Close

tabprod.Open "select * nome from produtos where Nome like'%" & busca & "%'"

If tabprod.RecordCount <> 0 Then

List1.AddItem tabprod!nome

Else:

MsgBox "Redigite a informação pois esta não consta no banco de dados", vbInformation, "Erro"

End If

Esta é minha linha de código, o que aconteçe é o seguinte. minha variavel abre o banco de dados e pega lá o valor colocado na pesquiza, mais não do jeito que precisso, o que precisso é por exemplo:

Você digita "Luminaria" todos os registros com o nome ou parte dele "Luminaria" serão selecionados e assim poderei colocar em uma lista para exibição ao cliente, só que digito por exemplo "Luminaria" e só apareçe o primeiro registro com o nome "Luminaria" como corigir isto?

PS:ISSO É PARA UMA AULA QUE AINDA ESTOU TENDO, NESTE EXATO MOMENTO, É NECESSÁRIO QUE SEJÁ MUITO RÁPIDO.

Presadamente Seed...