Private Sub AddPicture_Click()
    ' Use the Office File Open dialog to get a file name to use
    ' as an employee picture.
    getFileName
End Sub

Sub getFileName()
    ' Displays the Office File Open dialog to choose a file name
    ' for the current employee record.  If the user selects a file
    ' display it in the image control.
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Select Employee Picture"
        .Filters.Add "All Files", "*.*"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "Bitmaps", "*.bmp"
        .FilterIndex =  3 
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path
        result = .Show
        If (result <>  0 ) Then
            fileName = Trim(.SelectedItems.Item( 1 ))
            Me![ImagePath].Visible = True
            Me![ImagePath].SetFocus
            Me![ImagePath].Text = fileName
            Me![FirstName].SetFocus
            Me![ImagePath].Visible = False
        End If
    End With
End Sub

Private Sub butExecute_Click()
Dim myBmp As String, myDir As String
On Error GoTo  999 
    myDir = Application.CurrentProject.path
    myBmp = Dir(myDir & "\*.bmp ", vbNormal)
    Do While Len(myBmp) <>  0 
        Me.PicName = myBmp
        Me.PicLocation = myDir
        Me.Pic.OLETypeAllowed = acOLEEmbedded
        Me.Pic.SourceDoc = Me.PicLocation & "\" & Me.PicName
        Me.Pic.Action = acOLECreateEmbed
        myBmp = Dir
        DoCmd.RunCommand acCmdRecordsGoToNew
    Loop
    DoCmd.RunCommand acCmdRecordsGoToFirst
    MsgBox "Рисунки загружены!", vbExclamation, "Графика"
    Exit Sub
 999 :
    MsgBox Err.Description
    Err.Clear
End Sub