将所选择文件夹中的文件（包括子文件夹中）添加到表中

请老师看看附件：将所选择文件夹中的文件（包括子文件夹中）添加到表中，谢谢

下面的代码是Henry D. Sy 老师给的，但是我不会添加，请看看，谢谢

Dim sfd As Folder
     Dim f As File
     Dim r As DAO.Recordset
     dim i as long
     For Each f In fd.Files
Set r = CurrentDb.OpenRecordset("select a from 表;")
r.AddNew
r.Fields!a = f.Path
i=i+1
r.Update
Me.Repaint
     Next
     
     For Each sfd In fd.SubFolders
         
         ListFolder sfd
     
     Next
msgbox i点击下载此附件