Loop na Tabela excluindo os duplicados

como eu faco uma loop numa tabela removendo os duplicados e salvando em txt

seria esse pois queria deixar somente um de cada

Avelino | ...
João | ...
Nadir | ...

essa e minha consulta

strSqle = "SELECT NF.CNPJ, NF.IE,nf.nnota, NF.DChegada, NF.UFN, NF.Cfop, NF.Vnota, nf.vicms, NF.BCalc, NF.Isentas, NF.VFRETE, NF.Outros, NFF.Alq " & vbCrLf & _
"FROM NF INNER JOIN NFF ON NF.NNota = NFF.NNF " & vbCrLf & _
"WHERE (((NF.DEmissao)Between #" & filtro & "#));"

o campo que duplica e NFF.Alq

essa parte ja consegui resolver mas agora tem outra com essa consulta

StrSql = "SELECT NF.CNPJ, NF.IE,nf.nnota, NF.DChegada, NF.UFN, NF.Cfop, NF.Vnota, nf.vicms, NF.BCalc, NF.Isentas, NF.VFRETE, NF.Outros, NFF.Alq " & vbCrLf & _
"FROM NF INNER JOIN NFF ON NF.NNota = NFF.NNF " & vbCrLf & _
"WHERE (((NF.DEmissao)Between #" & filtro & "#));"

no arquivo txt onde eu salvo as informacoes ficaria assim

5472026024000120551 09070924010100042011 000000040000000000128200000000000000000000000000000000248150000000000001200
5472026024000120551 09070924010100052012 000000040000000000380600000000000000000000000000000000803700000000000000400
5472026024000120551 09070924010100062013 000000020000000000224360000000000000000000000000000000413610000000000001200
5472026024000120551 09070924010100070727 000000100000000000142100000000000000000000000000000000213490000000000001200
5472026024000120551 09070924010100081046 000000100000000000230300000000000000000000000000000000346000000000000001200
5472026024000120551 09070924010100090984 000000200000000000064000000000000000000000000000000000096150000000000001200
5472026024000120551 0897542403 991 000000000000000000000000000000001000000000000000000000000000000000000000000

entao o que seria no final de cada lista de itens ele ver se na tabela nf.vfrete se a frete e digita no final de cada gurpo de registro

obrigado a todos