Agregar múltiples imágenes a un formulario en access

Nuevamente acudiendo a sus conocimientos, estoy ayudando a un amigo a llevar su control de propiedades y genere en ACCESS para que pueda subir el registro fotográfico de una propiedad, en un formulario deje 10 cuadro de imágenes y cada uno con un control para pueda adjuntarla y guardarla con el nombre principal más un numero asignado. Lo engorroso es que se debe hacer una por una y hay veces que son más de 20 fotos. Debo mencionar que solo guardo la ruta de la imagen en la base de datos. Este es el comando que utilizo.

Private Sub Imagen_1_Click()
On Error GoTo CapturarError
 Dim fd As FileDialog
       Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim SeleccionaElemento As Variant
        With fd
        .Filters.Clear
         .AllowMultiSelect = False
         .InitialFileName = CurrentProject.Path & "\Tools\Imagenes\Propiedades"
         .Filters.Add "Todos los Archivos", "*.*"
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.BMP", 1
        If .Show = -1 Then
            For Each SeleccionaElemento In .SelectedItems
               Me.Imagen1.Picture = Dir(SeleccionaElemento)
                 Me.TxtImagen1.Value = Mid(SeleccionaElemento, (IIf(InStrRev(SeleccionaElemento, ":") > InStrRev(SeleccionaElemento, "\"), InStrRev(SeleccionaElemento, ":"), InStrRev(SeleccionaElemento, "\")) + 1))
                DoCmd.RunCommand acCmdRefresh
            Next SeleccionaElemento
            MsgBox "Archivo adjunto con exito", vbInformation, "Aviso.."
        Else
        End If
    End With
    Set fd = Nothing
SeguirPorAqui:
Exit Sub
CapturarError:
    If Err.Number = 2220 Then
            MsgBox "¡¡Debes seleccionar una imagen desde la carpeta Imagenes!!", vbInformation, "Aviso.."
        Else
    End If
            MsgBox "Se ha producido el error Nº: " & Err.Number & " " & Err.Description, vbInformation, "Error"
Resume SeguirPorAqui
End Sub

Como se puede hacer que pueda seleccionar todas las imágenes y se agreguen a cada uno de los cuadro Imagen automáticamente con el nombre y numero correlativo asignado automáticamente sin necesidad de estar escribiendo.