Duda sobre la utilización de form enlazado a una base de datos access mediante adodc en Visual Basic

Primero que nada disculpa la tardanza..
Debes agregar en el formulario los siguientes controles:
1) DriveListBox
2) DirListBox
3) FileListBox
4) PictureBox
5) CommandButton
Luego copia estos códigos:
Dim BD As Database
Dim rContactos As Recordset
Private Sub Form_Load()
File1.Pattern = "*.jpg" ' para que busque solo archivos jpg
Set BD = OpenDatabase(App.Path & "\Bd2.mdb")
Set rContactos = BD.OpenRecordset("foto")
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
Picture1.Picture = LoadPicture(Dir1.Path + "\" + File1.FileName)
End Sub
todo lo anterior es para cargar la imagen en el picturebox.
ahora estamos listos para almacenar en la bd, copia lo siguiente:
en el CommandButton, copia:
Private Sub Command1_Click()
rContactos.AddNew
rContactos!ID = Text1
GuardarBinary rContactos!FOTO, Picture1
rContactos.Update
End Sub
crea un modulo y copia:
Option Explicit
Dim DataFile As Integer
Dim Chunk() As Byte
Const conChunkSize As Integer = 16384
Public Sub GuardarBinary(campoBinary As Field, unPicture As PictureBox)
'Guardar el contenido del Picture en el campo de la base
Dim i As Integer
Dim Fragment As Integer, Fl As Long, Chunks As Integer
'Guardar el contenido del picture en un fichero temporal
SavePicture unPicture.Picture, "pictemp"
'Leer el fichero y guardarlo en el campo
DataFile = FreeFile
Open "pictemp" For Binary Access Read As DataFile
Fl = LOF(DataFile) ' Longitud de los datos en el archivo
If Fl = 0 Then Close DataFile: Exit Sub
Chunks = Fl \ conChunkSize
Fragment = Fl Mod conChunkSize
ReDim Chunk(Fragment)
Get DataFile,, Chunk()
CampoBinary. AppendChunk Chunk()
ReDim Chunk(conChunkSize)
For i = 1 To Chunks
Get DataFile,, Chunk()
CampoBinary. AppendChunk Chunk()
Next i
Close DataFile
'Ya no necesitamos el fichero, así que borrarlo
On Local Error Resume Next
If Len(Dir$("pictemp")) Then
Kill "pictemp"
End If
Err = 0
End Sub
Nota:
En la bd el campo foto debe ser de tipo: Objeto OLE
Y listo con esto guardas la foto en la bd..