Visual Basic - Guaradr Imagenes en Base de datos

Hola! Quiero saber como puedo guardar una imgen que está en un picturebox, en un campo "FOTOS" de una bse de datos de Access, y como recuperarla de la base de datos y colocarla en un picturebox. Si pueden enviarme un código de ejemplo se los agradeceria! Desde ya muchas gracias!

Hola Manuel! Desde ya te agradesco por desdicarme tu tiempo para responderme, muchas gracias. Pero tengo que contarte que estoy probando el código y veo todo rojo, tengo que aclararte que no soy un programador experto sino que tengo conocimientos un poquito mas que un novato, si no es molestia podrias explicarme un poco mas profundo sobre como hacer andar este código. Te cuento que la conección a la base la realizo así:

Public abrir As New ADODB.Connection
Public tabla As New ADODB.Recordset

abrir.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "ase.mdb"

y llamo la tabla

tabla1.Source = "tabla1"
tabla1.CursorType = adOpenKeyset
tabla1.LockType = adLockOptimistic
tabla1.Open "select*from tabla1", base

estoy haciendo un programita de prueba para adaptarlo a un sistema mas grande, el campo de la tabla1 se llama fotos.

Saludos, y muchas gracias!

Pero... cómo le haces caso al profesor chiflado?

si ni siquiera sabe lo que está respondiendo!

yo tampoco entendi nada
y me interesa el tema =S estoy haciendo un sistema en el que necesito manejar imagenes y no se nada d esto... ayuda!
ya somos 2 batallando igual
thanks!

Bueno, os pongo un ejemplo porque hoy estoy de buen humor

en la opción de guardar la foto:

rs.Fields("Foto").AppendChunk GuardarFoto(sRuta)
rs.Update

donde rs es el recordset creado anteriormente y sRuta es la dirección donde está la foto y Foto es el campo de la tabla donde se guarda la imagen (es un campo Objeto OLE de binarios largos)

y ahora la función GuardarFoto:

Function GuardarFoto(ByVal sRutaFoto As String) As Byte()
Dim b() As Byte
Open sRutaFoto For Binary As #1
ReDim b(FileLen(sRutaFoto))
Get #1, , b
Close #1
GuardarFoto = b
End Function

eso es para guardar una imagen en un campo Objeto OLE de una base de datos Access, ahora para visualizar la imagen:

Image1.Stretch = True
Set Image1.DataSource = rs
Image1.DataField = "Foto"

Te habrás dado cuenta que la imagen se presenta en un control Image y no en un PictuteBox.

porqué? pues porque el control PictureBox no tiene ninguna propiedad que ajuste el tamaño de la imagen en el propio control, sin embargo el control Image sí que tiene la propiedad Stretch que justamanete eso es lo que hace

Espero que os haya servido de algo (y de paso que el profesor con 10 años impartiendo clases, también les enseñe algo a sus alumnos)