Visual Basic - visualizar una imagen de una b.d

hola a todos:
¿como se visualiza una imagen de una base de datos acces?

Estoy intentando hacer un programa en visual basic 6.0 con dao que una vez introducido un codigo, me visualice la imagen correspondiente a ese codigo. Para eso tengo una base de datos acces y alli tengo un tipo de objeto ole donde esta almacenada la foto.

Mi problema es que no se como hacer que la imagen se me visualiza en un picture box. Alguien sabe como hacerlo? muchas gracias

El codigo que tengo escrito es :

'abro de nuevo la tabla de la base de datos, para encontrar los autores
Set rs5 = DB.OpenRecordset("SELECT Foto from " & nomTablaFinal & " where Codigo like codigo ", dbOpenDynaset)
' Comprobar q hay datos en el recordset, en este caso solo hay 1
With rs5
If (.BOF And .EOF) Then
MsgBox "No se ha encontrado ninguna foto correspondiente a ese codigo"
Else
'Mostrar los datos
.MoveFirst
Do While Not .EOF
Set Picture1.Picture = (rs5.Fields("Foto")) 'AQUIIII ME DA ERRORRRRRR Y NO SE COMO PONERLO!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Loop
End If
End With

si no he contestado en el otro foro es porque no lo habia visto aun. De todas formas muchas gracias por contestarme, lo cambiare haber si me funciona.