Problemas con imagen en formulario con subformulario

Si tengo una tabla Productos con..., Producto,... Foto, donde guardo la ruta a la imagen de ese producto.

Tengo un formulario Compras con un control Imagen llamado Imagen29, y con el subformulario DetalleCompra, donde al seleccionar el producto me muestra su imagen en un control imagen llamado Imagen28

Casi no se vé pero a la derecha hay una taza de café. Si hago clic sobre ella

En el evento Al hacer clic del control imagen del subformulario le tengo puesto

Private Sub Imagen28_Click()
Me.Parent!Imagen29.Picture = DLookup("foto", "productos", "producto='" & Me.Producto & "'")
End Sub

es decir, que muestre aquella imagen correspondiente al campo Foto de la tabla Productos en que Producto sea igual al valor que figura en el control Producto del registro activo.

Julián me queda bien así, pero me surge un problemilla que no se si tiene solución, 

Resulta que cuando inserto alguna imagen, (no todas), me aparece en formato horizontal, es decir si la imagen es vertical, el sistema me lo pone horizontal,. 

Conoces alguna forma de poder girar la foto 90 º en el mismo formulario o subformulario?

¡Coño, la primera vez que lo oigo. ¿Puedes poner una imagen?. Es que a mi no me pasa. Mira

Hago clic en la cerveza y

Mira que color, mira que espuma, parece una Cruzcampo.

No sé que instrucción usas para seleccionar la imagen, pero si tengo el formulario Productos, cuando hago clic en el campo Foto, se me abre el "explorador". Localizo una y, por ejemplo, selecciono a Adrián

Cuando lo selecciono y acepto

Y así, es como se guarda y muestra.

Como puedes ver la imagen del segundo registro, que además es el que está activo, aparece horizontal. en origen la imagen es vertical, cuando la busco y selecciono, me la pone en horizontal en el cuadro de imagen del subformulario y al pasar al cuadro del form principal, mantiene el mismo formato.

La función de búsqueda es la siguiente:

Public Function fncBuscaImagen() As String
'Requiere registro de la referencia Microsoft Office x.y Object Library
Dim imagenSeleccionada As String
Dim puntoCorte As Integer
Dim fDialog As Office.FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False
.ButtonName = "Seleccionar"
.Title = "Seleccionar la imagen"
.InitialFileName = Application.CurrentProject.Path
.InitialView = msoFileDialogViewDetails
.Filters.Clear
.Filters.Add "Archivos de imagen", "*.jpg; *.png; *.bmp"
.Filters.Add "Todos los archivos", "*.*"
If .Show = True Then
imagenSeleccionada = .SelectedItems(1)
Else
MsgBox "La selección de imagen se ha cancelado", vbExclamation, "CANCELADO"
End If
End With
fncBuscaImagen = imagenSeleccionada
End Function

La idea es poder girar la imagen en el formulario, ya que si la giro origen, me queda mal para otros usos.