Нужна помощь в объединении двух скриптов

Сашок
Дата: 05.06.2004 18:17:45
Уважаемые господа профессионалы и просто знающие VB. Ниже представлены два скрипта.
Первый выбирает нужную картинку, файл из каталога и прописывает в таблицу путь к картинке или файлу. Второй вытаскивает из файла, в котором находится база, все картинки в формате bmp и прописывает в таблицу путь, название, картинку.
Вопрос в следующем, как можно объединить эти два скрипта чтобы получился скрипт который мог делать следующее: Открывать каталог, выбирать нужную картинку,(bmp, jpg, gif...) прописывать ее в таблицу в разные поля, так как делает это второй скрипт ( путь, название, картинка)
Заранее благодарен за ответ, желательно с примером

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