A Combo de pesquisa está sendo carregada em função da coluna "B", então altere para a coluna que quer utilizar.
Provavelmente:

Sub AtualizaComboBoxPesquisa()
TotalRegistros = Dados.UsedRange.Rows.Count
If TotalRegistros > 1 Then
    With ComboBox_Pesquisa
            .Enabled = True
            .RowSource = "Dados!D2:D" & TotalRegistros
    End With
Else
    With ComboBox_Pesquisa
            .Enabled = False
    End With
End If
End Sub

Tambem deve alterar no evento change o numero da soma ao listindex de + 4 para +2

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

Qto à ordem de tabulação:
no editor VBA, com o formulario visualizado, no menu superior clique em "Exibir" --> na tela que se abre clique em "Ordem de tabulação"; é nessa tela que vc define/ordena a passagem do cursor, basta ir movimentando as posições

Ok. Qdo chegar em casa testo e posto.
Mto obrigado.

boa noite
testei com suas alterações e continua buscando a data e não o nome.
Qto a ordem. não aparecem todos os nomes porque?
veja o anexo

Poruqe nessa versão vc tem duas rotinas para atualizar a combo - AtualizaComboBox_Pesquisa() e outra AtualizaComboBoxPesquisa().
Segue versão atualizada, aparentemente está ok.
Qto a sua outra pergunta não entendi/consegui ver o que descreveu

Vou testar.
Obrigado.
Qto a ordem de tabulacao nao consigo colocar da forma comonesta. Fui knde ensinou me. Contudo nao apracem todos os nomes. Porque?
Obrigado

Porque os demais controles estão no multipage.
Com o formulario selecionado são mostrados os controles no formularios:Multipage, data, codigo, pesquisa e os botoes de operação.
Selecione o multipage de o page 1 (identificação), va em ordem de tabulação e verá os controles dessa "guia", ordene-os a sua opção; depois vá a guia 2..8 e repita essas operações.

Ok. Vou testar e posto depois. Abs

Amigo. show de b ola.
Abraços e mto obrigado.