Visual Basic - recuperar una imagen de una base de datos

Hola a todos:

Quiero recuperar por medio de un programa que me he creado una imagen que esta en una base de datos acces como objeto ole e insertarla en un picturebox, alguien sabe como se hace? muchisimas gracias

Sólo tienes que asignar al PictureBox las propiedades DataSource y DataField:

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\Pictures.mdb"
.Open "Select * From Tabla1"
End With
Set Picture1.DataSource = rs
Picture1.DataField = "CampoImagen"

Aunque sería mejor usar un control Image con la propiedad Stretch a True para que ajuste la imagen al ancho y alto.

Hola de nuevo, he puesto lo siguiente (y asi no me funciona), si alguien sabe porque decirme, gracias

'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 que 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.DataSource = rs5
Picture1.DataField = "Foto"
Loop
End If
End With

End If
Next cant_tablas
rs5.Close

No te funciona porque el ejemplo es para ADO y estás intentando ejecutarlo con DAO.
Seguramente te saldrá un error de no coincidencia de tipos en la asignación de la propiedad DataSource.

vale muchas gracias, lo intentare hacer con ADO