[Resolvido]Problemas em colocar todos os arquivos numa listbox

Private Sub Form_Open(Cancel As Integer)
Dim strArquivo As String
Dim strCaminho As String
Me!Lista0.RowSource = ""
strCaminho = "c:\SuaPastaPdf\"
strArquivo = Dir$(strCaminho & "*.pdf")
Do While Len(strArquivo) > 0
    Me!Lista.AddItem strArquivo
    strArquivo = Dir$()
Loop
End Sub

Private Sub Form_Open(Cancel As Integer)
Dim strArquivo As String
Dim strCaminho As String
Currentdb.execute "DELETE FROM NomeTabela;"
strCaminho = "c:\SuaPastaPdf\"
strArquivo = Dir$(strCaminho & "*.pdf")
Do While Len(strArquivo) > 0
    currentdb.execute "INSERT INTO Nometabela (NomeCampo) VALUES('" & strArquivo & "');"
    strArquivo = Dir$()
Loop
Me!Lista.RowSource = "SELECT Nomecampo FROM Nometabela ORDER BY Nomecampo;"
End Sub

Private Sub Form_Open(Cancel As Integer)
Dim strArquivo As String
Dim strCaminho As String
Me!Lista0.RowSource = ""
strCaminho =  "C:\Documents and Settings\User\Ambiente de trabalho\AccessPDF\artigos\"
strArquivo = Dir$(strCaminho & "*.pdf")
Do While Len(strArquivo) > 0
    Me.txAnexo.AddItem strArquivo
    strArquivo = Dir$()
Loop
End Sub