[Resolvido]Importar Info de Produtos do XML

Pessoal, busquei pelo fórum e não encontrei nada que pudesse me ajudar, pois os exemplos que encontrei eu consigo importar um campo qualquer do xml, porém como caso do item/produto que repete e possui os mesmos nomes de campos não consegui avançar no meu objetivo de importar todos os dados da NF que constam no xml, alguém já passou por isso e poderia me dar o caminho?

Quero importar para tabela ou form, tanto faz, depois eu importar eu trato os dados

Código:


<det nItem="1"><prod><cProd>80 358</cProd><cEAN>7898563820998</cEAN><xProd>KIT EMBREAGEM JAC J3</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>293.7400000000</vUnCom><vProd>293.74</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>293.7400000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
<det nItem="2"><prod><cProd>80 336</cProd><cEAN>7898563820097</cEAN><xProd>KIT EMBREAGEM KIA SOUL/CERATO</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>313.0700000000</vUnCom><vProd>313.07</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>313.0700000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
<det nItem="3"><prod><cProd>80 337</cProd><cEAN>7898563820158</cEAN><xProd>KIT EMBREAGEM HYUNDAI I30</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>330.9300000000</vUnCom><vProd>330.93</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>330.9300000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
<det nItem="4"><prod><cProd>80 349</cProd><cEAN>7898563820899</cEAN><xProd>KIT EMBREAGEM HYUNDAI IX35 FLEX</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>462.7000000000</vUnCom><vProd>462.70</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>462.7000000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
<det nItem="5"><prod><cProd>80 345</cProd><cEAN>7898563820493</cEAN><xProd>KIT EMBREAGEM MITSUBISHI L200 TRITON</xProd><NCM>87089300</NCM><EXTIPI>001</EXTIPI><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>498.9200000000</vUnCom><vProd>498.92</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>498.9200000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
<det nItem="6"><prod><cProd>80 346</cProd><cEAN>7898563820554</cEAN><xProd>KIT DE EMBREAGEM SUZUKI JIMNY 1.3L</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>279.7700000000</vUnCom><vProd>279.77</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>279.7700000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>7</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>


Veja se ajuda;

https://www.maximoaccess.com/t18549-resolvidoimportar-de-arquivo-xml-problema-com-a-virgula

Valeu grande Paulo!

Acabei encontrando o código abaixo em outro fórum e consegui importar todos os dados separadamente, agora é só botar a mão na massa para tratar o formato importado:

Private Sub Comando0_Click()

Const acAppendData = 1
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase "C:\elper\database171.accdb"
objAccess.ImportXML "C:\elper\nfe000018.xml", acAppendData

End Sub

Este outro também funciona:
https://msdn.microsoft.com/pt-br/library/office/Ff823157.aspx

Private Sub Comando0_Click()

Application.ImportXML _
DataSource:="C:\elper\nfe000018.xml", _
ImportOptions:=1

End Sub

Resolvido e espero que ajude mais alguém...

Obrigado pelo retorno e contribuição.