VBA to list files in fldrs & Subfolders

I’m trying to create a procedure in Access 2000 VBA that lists all of the files in a folder and all the included subfolders and then writes the file names and paths in a table. Does anyone have any tips?