ลืมบอกไปว่าผมสร้างฟอร์มเพื่อรับค่าต่างๆ ลงฐานข้อมูลรวมทั้งไฟล์รูปภาพ
โดยผมทำดังนี้ (ต้องการเฉพาะชื่อไฟล์และนามสกุลนะครับ)
------
Dim strPictFile As String
Dim strFileType As String, strFileTypeDesc As String

strFileType = "*.bmp;*.jpg;*.gif;*.tif;"
strFileTypeDesc = "Pict Files (*.bmp,*.jpg,*.gif,*.tif;)"

strPictFile = GetOpenFile(strFileType, strFileTypeDesc)

If strPictFile <> "NoFile" Then
Caption = strPictFile
Me.PicPath = strPictFile
End If
------