Onde e como vc que pesquisar??

Se vai usar um formulario

Como deve ser formulario de pesquisa?

Respondendo essas perguntas vc deve fazer uma rotina de repetição

For/Next, Do While/Lopp enfim na rotina pesquisar na coluna o valor procurado, encontrando carrega os dados.

Algo mais ou menos assim:

Sub Pesquisa
Dim Pesquisa as string
Dim Linha as long
Dim Ulinha as long

Rotina para abrir o arquivo base de dados

Linha = 4
Ulinha = range("A" & Rows.count).end(Xlup).row

Pesquisa = Cells(linha, numero da coluna da pesquisa).value

For A = linha to ulinha

if Cells(linha, numero da coluna da pesquisa).value = Pesquisa

rotina para carregar os dados

exit sub

else

linha = linha + 1

End If

Rotina para fechar o arquivo base de dados

End Sub