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

YANWEI82123300

请老师看看附件：将所选择文件夹中的文件（包括子文件夹中）添加到表中，谢谢
下面有一段代码，别的老师给的，但是我不会使用，请大家看看，再次感谢。
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

YANWEI82123300

老师们请看看,谢谢!