Qual botão de pesquisa e em que formulário??? Não vi nenhum botão de pesquisa...

Na verdade, não é um botão de pesquisa, mas sim um Combobox,o ultimo sem identificação, no rodape do formulario.
A duvida é a mesma que foi postada no topico viewtopic.php?f=10&t=7434&p=39573#p39573
Porem como o usuari mudou de formulario tem que mudar tb os criterios.
No active do form, deve ser alterado:

Private Sub UserForm_Activate()
    StatusBar1.Panels(1).Text = Format(Now, "[$-F800]dddd, mmmm dd, yyyy")
    lsLocalizaRegistroStudent (Worksheets("Assistente").Cells(2, 1).Value)
    Sheets("Menu").Activate
AtualizaComboBox_Pesquisa
End Sub

Tambem o evento change do combo

Private Sub ComboBox_Pesquisa_Change()
If ComboBox_Pesquisa.ListIndex = -1 Then
    Exit Sub
End If
DadosLinha = ComboBox_Pesquisa.ListIndex + 1
lsLocalizaRegistroStudent (DadosLinha)
End Sub

O "carregamento" dos dados no Combo tambem deve ser alterado

Sub AtualizaComboBox_Pesquisa()
TotalRegistros = Sheets("Assistente").Cells(Rows.Count, 1).End(xlUp).Row
If TotalRegistros > 1 Then
    With ComboBox_Pesquisa
            .Enabled = True
            .RowSource = "Assistente!B2:B" & TotalRegistros
    End With
Else
    With ComboBox_Pesquisa
            .Enabled = False
    End With
End If
End Sub

Boa tarde reinaldo
A título de aprendizado, porque + 1 e não + 2, na linha abaixo?
DadosLinha = ComboBox_Pesquisa.ListIndex + 1

Boa noite Reinaldo e amigos
Fiz a modificação que vc orientou e mais algumas perfumarias na aparência.
Mas ficaram algumas coisas:
1) Quando vou excluir dada erro.
2) A combo de pesquisa não atualiza na "hora". ´É preciso fechar e reabrir o form para atualizar. Teria como resolver?
Na combo estado podemos impedir as pessoas de digitarem nela?
Obrigado

A título de aprendizado, porque + 1 e não + 2, na linha abaixo?
DadosLinha = ComboBox_Pesquisa.ListIndex + 1

O combobox "lista" os valores partindo do 0 (zero) e não do 1(um); então o primeiro registro da range que vc utiliza (B2 = ISTO É UM TESTE) no listindex do combo é 0.
a Pesquisa que utiliza o valor (DadosLinha), procura o valor numerico na coluna A (Código); então é necessario "igualar/compatibilizar" o numero "fornecido" pelo listindex , com o numero existente na coluna; ou seja valor Zero não será localizado, somando-se 1(0+1=1), então é retornado o valor.
No outro caso, a pesquisa é feita pelo numero da llinha em que o registro se encotra, como a range inicia em B2, soma-se 2 para "suprir" essa diferença (0+2=2 -->B2)

1) Quando vou excluir dada erro.
2) A combo de pesquisa não atualiza na "hora". ´É preciso fechar e reabrir o form para atualizar. Teria como resolver?
3) Na combo estado podemos impedir as pessoas de digitarem nela?
Obrigado

1) Não experimentei qualquer tipo de erro, exclui normalmente.
2) Para que a combo seja atualizada, é preciso que mande o comando para atualização.
Então na rotina de exclusão e/ou inclusão acrescente a linha:= --> AtualizaComboBox_Pesquisa
3) Veja a resposta do colega Morel em viewtopic.php?f=10&t=7373

Ok.
Obrigado.