Access - Camino de la BD

Private Sub Form_Load()

    Dim path As String

    Dim imgPath As String

    'Ruta de la base de datos

    path = CurrentDb.Name

    'Ruta de la carpeta que contiene las imágenes

    imgPath = Left(path, InStrRev(path, "\")) & "Images\"

    'Nombre de la imagen a mostrar

    Dim imgName As String

    imgName = "imagen1.jpg"

    'Comprueba si la imagen existe en la carpeta

    If Dir(imgPath & imgName) <> "" Then

        'Si la imagen existe, la muestra en el control de imagen

        Me.imagenControl.Picture = imgPath & imgName

    Else

        'Si la imagen no existe, muestra un mensaje de error

        MsgBox "No se encontró la imagen en la ruta especificada."

    End If

End Sub