Access - Gestionde imagenes en Access 2000 desde VB6

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim imgData As Variant

' Abrir la conexión a la base de datos

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ruta\a\la\base\de\datos.mdb"

' Abrir el recordset con los datos de la imagen

rs.Open "SELECT Imagen FROM TablaDeImagenes WHERE ID = 1", cn, adOpenStatic, adLockOptimistic

' Obtener los datos de la imagen

imgData = rs.Fields("Imagen").GetChunk(rs.Fields("Imagen").ActualSize)

' Cerrar el recordset y la conexión

rs.Close

cn.Close

' Cargar la imagen en un control de imagen

Set Image1.Picture = LoadPicture(imgData)

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim imgData As Variant

' Abrir la conexión a la base de datos

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ruta\a\la\base\de\datos.mdb"

' Abrir el recordset para añadir una nueva imagen

rs.Open "TablaDeImagenes", cn, adOpenDynamic, adLockOptimistic, adCmdTable

' Guardar la imagen en una variable

imgData = SavePicture(Image1.Picture, Image1.Width, Image1.Height)

' Escribir los datos de la imagen en la base de datos

rs.AddNew

rs.Fields("Imagen").AppendChunk imgData

rs.Update

' Cerrar el recordset y la conexión

rs.Close

cn.Close