Populando ListView

Boa noite,

Algum tempo estou me batendo na seguinte situação:

No VBA, uso formularios com BD access onde possuo um cadastro de pessoa e no cadastro através de Checkbox defino o tipo de pessoa, se é cliente, exportador, importador...

Porém para carregar uma listView em um outro formulario, há dois código diferentes de pessoa, porém o nome pessoa carrega o mesmo para os dois codigos


With ListView1
       .Gridlines = True
       .View = lvwReport
       .FullRowSelect = True
       .ColumnHeaders.Add text:="COD", Width:=30
       .ColumnHeaders.Add text:="EXP", Width:=50
       .ColumnHeaders.Add text:="COD", Width:=0
       .ColumnHeaders.Add text:="IMPORTADOR", Width:=150



   ComandoSQL = ComandoSQL & "Tab_Processo_exp.COD_EXP,"
   ComandoSQL = ComandoSQL & "Tab_Pessoa.NOME_PESSOA,"
   ComandoSQL = ComandoSQL & "Tab_Processo_exp.COD_CONS,"
   ComandoSQL = ComandoSQL & "Tab_Pessoa.NOME_PESSOA,"

ListView1.ListItems.Clear
         
   
   While Not Recordset.EOF
           Set List = Rel_Embarques.ListView1.ListItems.Add(text:=Recordset(0))  'id
           List.SubItems(1) = Recordset(1) 'codigo pessoa
           List.SubItems(2) = Recordset(2) 'nome pessoa
           List.SubItems(3) = Recordset(3) 'codigo pessoa
           List.SubItems(4) = Recordset(4) 'nome pessoa



Na listview carrega da seguinte maneira:
Recordset(1) codigo pessoa = 3 - Recordset(2) nome pessoa = Paulo
Recordset(3) codigo pessoa= 5 - Recordset(4) nome pessoa= Paulo

Como mostra o nome pessoa carregou também no Recordset(4) o mesmo do Recordset(2) e deveria carregar o codigo pessoa 5 que corresponde a João.

Sabem como posso tratar esta questão dentro da mesma listview?

Boa tarde e bem-vindo ao fórum
O problema estará quando carregou o recordset?