Текущая папка по умолчанию в FileDialog в Access, VBA

Question

Как сделать текущую папку, в которой хранится база данных доступа в качестве папки по умолчанию при открытии FileDialog? я использовал «CurrentProject.Path», как показано ниже, но его решений C: \ по умолчанию

Dim fd As Object 
Set fd = Application.FileDialog(3) 
Dim vrtSelectedItem As Variant 

With fd 
.InitialFileName = Environ("CurrentProject.Path") & "\" 
.Filters.Clear 
.Filters.Add "Microsoft Excel(*.xlsx)", "*.xlsx", 1 
.AllowMultiSelect = False 
.Show 
End With 

спасибо

Answer 1

я только что узнал, что случилось, я должен поставить его, как это

.InitialFileName = (CurrentProject.Path)