Dim DSec As FileDialog
Dim SPath, DPath As String, objFSO

Set DSec = Application.FileDialog(msoFileDialogFilePicker)
Set objFSO = CreateObject("Scripting.FileSystemObject")

Yabancı kaynaklarda da aynı kod var fakat bende başka bir sebeple çalışmıyor. Referanslarda tamam eksik yok.
Microsoft activx Data objects 6.1 lıbrary ve Microsoft Office 16.0 Access database engine ... ekli