Автоматический выбор всего элемента в диалоговом окне файла в доступе VBA

Question

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

Dim dialog As FileDialog
Dim filePath As String
Dim fileName As String

Set dialog = Application.FileDialog(msoFileDialogFilePicker)

With dialog
    .AllowMultiSelect = True
    .InitialFileName = "D:\MyTest\"
    .Show
    If .SelectedItems.Count <> 0 Then
        filePath = .SelectedItems.Item(1)

        Me.imgp = filePath
    End If
End With