Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker) <<มันerrorตรงนี้อ่ะครับ
        .Title = "Select Your Picture"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "Bitmaps", "*.bmp"
        .Filters.Add "All Files", "*.*"
        .FilterIndex = 1
        .AllowMultiSelect = False
        .InitialFileName = "K:\Company\Administration\08_Safety\ConstructorsPhoto"
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            Me![Picture_Path].Visible = True
            Me![Picture_Path].SetFocus
            Me![Picture_Path].Text = fileName
            'Me![txtimages_name].SetFocus
            'Me![txtFileName].Visible = True
            CustImage.Picture = Me![Picture_Path]
        End If
    End WithDim 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 = "K:\Company\Administration\08_Safety\ConstructorsPhoto"
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            Me![Picture_Path].Visible = True
            Me![Picture_Path].SetFocus
            Me![Picture_Path].Text = fileName
            'Me![txtimages_name].SetFocus
            'Me![txtFileName].Visible = True
            CustImage.Picture = Me![Picture_Path]
        End If
    End With