ใน VBA Editor - Tools - Reference ให้เลือก Microsoft Office xx.x Object Libray

ขอบคุณครับ คุณ สันติสุข

เสริมนิดครับ
หากไม่ต้องการเซ็ท Reference Microsoft Office xx.x Object Libray จากคำสั่งนี้ให้แทนค่าด้วย 3 แทน msoFileDialogFilePicker ได้ครับ เช่น

    Const msoFileDialogFilePicker = 3
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Select Your Picture"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "Bitmaps", "*.bmp"
        .Filters.Add "All Files", "*.*"
        .FilterIndex = 1
        .AllowMultiSelect = False
        .InitialFileName = "D:\?"
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            Me![Picture_file].Visible = True
            Me![Picture_file].SetFocus
            Me![Picture_file].Text = fileName
            'Me![txtimages_name].SetFocus
            'Me![txtFileName].Visible = True
            CustImage.Picture = Me![Picture_file]
        End If

ปล. หากใช้
msoFileDialogViewList = 2
msoFileDialogFolderPicker = 4
ก็ใช้ได้เลยครับ

อีกอย่างคือ ถ้าเป็น VB ให้ใช้ * แทน ? ครับ
.InitialFileName = "D:\?"
เปลี่ยนเป็น
.InitialFileName = "D:\*"