Импортируйте несколько файлов CSV в базу данных Access и сохраняйте их в разных таблицах в зависимости от имени файла

У меня около 100 файлов CSV, которые я пытаюсь импортировать в Access, а затем переименовывать таблицы на основе имен файлов.

Вот код, который я нашел, но "tablename" должно быть моим именем файла. однако я не могу заставить его работать, поскольку я новичок в написании сценариев.

Function Import_multi_csv()

Dim fs, fldr, fls, fl
Set fs = CreateObject("Scripting.FileSystemObject")
Set fldr = fs.getfolder("D:Files\")
Set fls = fldr.files

     For Each fl In fls

      If Right(fl.Name, 4) = ".csv" Then
       DoCmd.TransferText acImportDelim, , "TableName", "D:Files\" & fl.Name, False
      End If

     Next fl

End Function

Кроме того, в моих файлах есть три столбца, и я хочу, чтобы третий столбец был импортирован как двойной.

Любая помощь будет оценена по достоинству.