Carregar Dados na lista desvinculada

boa trade
como eu carrego os dados de uma xml pra uma lista desvinculada
conforme codigo abaixo


Open arquivo For Input As #1
Do Until EOF(1)
Line Input #1, textoLinha
textoXml = textoXml & textoLinha
Loop

Dim i As Long, j As Long, l As Long, m As Long, N As Long, p As Long
Dim strInico, strFim, strSaida, strInicod, strFimd, strSaidad, strInicov, strFimv, strSaidav As String
Dim tf, Contador As Integer
EscreveLog ("Foram adicionados as seguintes Duplicatas : ")
strInicio = ""
strFim = ""
strIniciod = ""
strFimd = ""
strIniciov = ""
strFimv = ""

i = 1
j = 1
l = 1
m = 1
N = 1
p = 1
tf = InStrRev(textoXml, strInicio)
Contador = 0
calc:
i = InStr(i, textoXml, strInicio)
j = InStr(j, textoXml, strFim)
l = InStr(l, textoXml, strIniciod)
m = InStr(m, textoXml, strFimd)
N = InStr(N, textoXml, strIniciov)
p = InStr(p, textoXml, strFimv)



strSaida = Mid(textoXml, i + Len(strInicio), j - i - Len(strInicio))
strSaidad = Mid(textoXml, l + Len(strIniciod), m - l - Len(strIniciod))
strSaidav = Mid(textoXml, N + Len(strIniciov), p - N - Len(strIniciov))
Me!numdup = strSaida
Me!datadup = strSaidad
Me!valordup = Replace((strSaidav), ".", ",")
i = i + 1
j = j + 1
l = l + 1
m = m + 1
N = N + 1
p = p + 1
st = Contador + 1
Contador = Contador + 1

If i <> tf + 1 Then
GoTo calc
End If

Close #1

Já deu uma pesquisada no fórum? Há alguns tópicos sobre o assunto. E também se pesquisar por "importar txt" terá diversos tópicos que poderão lhe ajudar.

strSQL = "SELECT strsaida, strsaidad"
Me.ListaFatur.RowSource = strSQL
Me.ListaFatur.ColumnCount = 2
Me.ListaFatur.ColumnWidths = "3cm; 3cm; "


quero carrega nesta lista acima, mas nao to conseguindo

alguem entendeu?

Para importar de um arquivo de texto é preciso abrir esse arquivo de texto conforme os exemplos que eu mencionei no primeiro post. Dê uma pesquisada e tente adaptar as explanações e exemplos desses tópicos.