Visual Basic - imagenes base de datos

Hola soy un poco nuevo en esto tengo que cargar una imagen desde acces, he logrado cargar datos desde la base pèro no logro cargar las imagenes, expongo el codigo. Agradeceria mucho su ayuda.

Luego esta imagen recuperada tengo que sobreponerla a una escaneada, supongo que hay que utilizar el drag and drop. Esta parte estoy intentandola todavia si es que alguien la sabe muchas gracias.

Option Explicit

' En ADO, se usa el objeto Connection para abrir las bases de datos
Private cnn As ADODB.Connection
' Necesitamos los eventos si queremos controlar algunas cosillas
Private WithEvents rst As ADODB.Recordset

Private cnn1 As ADODB.Connection

Private WithEvents rst1 As ADODB.Recordset

Dim precio As Double
Dim cod As String
Dim PrecioV As Single
Dim PrecioC As Single
Dim PrecioP As Single
Dim PrecioMI As Single
Dim PrecioMN As Single
Dim PrecioFMI1 As Single
Dim PrecioFMI2 As Single
Dim PrecioFMI3 As Single
Dim PrecioFMI4 As Single
Dim PrecioFMN1 As Single
Dim PrecioFMN2 As Single
Dim PrecioFMN3 As Single
Dim PrecioFMN4 As Single

Private Sub Command2_Click()
Form1.PrintForm
End Sub

Private Sub Editor_Click()
Form3.Show
Form1.Hide
End Sub

Private Sub Form_Load()
Combo1.AddItem "NACIONAL"
Combo1.AddItem "IMPORTADA"

Combo2.AddItem "NORMAL"
Combo2.AddItem "ANTIRREFLEJO"
Combo2.AddItem "SIN VIDRIO"

End Sub

Private Sub Combo2_Click()
If Combo2.Text = "NORMAL" Then
PrecioV = (((CSng(Text2)) + (CSng(Text4) * 2)) * ((CSng(Text3)) + (CSng(Text4) * 2))) * 0.0017
PrecioC = ((((CSng(Text2)) + (CSng(Text4) * 2)) * ((CSng(Text3)) + (CSng(Text4) * 2))) * 18) / 63000

Else
If Combo2.Text = "ANTIRREFLEJO" Then
PrecioV = (((CSng(Text2)) + (CSng(Text4) * 2)) * ((CSng(Text3)) + (CSng(Text4) * 2))) * 0.0025
PrecioC = ((((CSng(Text2)) + (CSng(Text4) * 2)) * ((CSng(Text3)) + (CSng(Text4) * 2))) * 18) / 63000

Else
If Combo2.Text = "SIN VIDRIO" Then
PrecioV = 0
PrecioC = ((((CSng(Text2)) + (CSng(Text4) * 2)) * ((CSng(Text3)) + (CSng(Text4) * 2))) * 18) / 63000
Else

End If
End If
End If

End Sub


Private Sub Combo1_Click()
If Combo1.Text = "IMPORTADA" Then
'
' Indicar el path correcto de la base de datos
' ¡ACUERDATE DE PONER EL PATH CORRECTO!
Const sPathBase As String = "C:\Enmarkar.mdb"
'
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
'
' Crear la conexión manualmente
' Usar "Provider=Microsoft.Jet.OLEDB.3.51;" para bases de Access 97
' Usar "Provider=Microsoft.Jet.OLEDB.4.0;" para bases de Access 2000
With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
.Open
End With
' Indicarle de que tabla vamos a leer los datos
rst.Open "SELECT * FROM IMPORTADA", cnn, adOpenDynamic, adLockOptimistic


Command1.Visible = True
Command4.Visible = False
Else

'------------*****************----------------
If Combo1.Text = "NACIONAL" Then
'
' Indicar el path correcto de la base de datos
' ¡ACUERDATE DE PONER EL PATH CORRECTO!
Const sPathBase1 As String = "C:\Enmarkar.mdb"
'
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
'
' Crear la conexión manualmente
' Usar "Provider=Microsoft.Jet.OLEDB.3.51;" para bases de Access 97
' Usar "Provider=Microsoft.Jet.OLEDB.4.0;" para bases de Access 2000
With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
.Open
End With
' Indicarle de que tabla vamos a leer los datos
rst.Open "SELECT * FROM NACIONAL", cnn, adOpenDynamic, adLockOptimistic


Command1.Visible = False
Command4.Visible = True


Else
End If
End If
End Sub


Private Sub Command1_Click()


' Mostrar los datos en el listview
Dim sBuscar As String
Dim tRs As Recordset

'
' Comprobar si tiene caracteres "no válidos" para ADO:
' NOTA: Replace es una función de VB6
sBuscar = Text1

'
Text1 = sBuscar
' Formar la cadena de la consulta:
' Se busca por el nombre del autor y se muestran clasificados por el nombre
sBuscar = "SELECT * FROM IMPORTADA WHERE CodigoMI LIKE '" & sBuscar & "'"
' Creamos un recordset del tipo "estático", el cual no es modificable
' para poder modificarlo, tendría que ser del tipo dbOpenDynamic
Set tRs = cnn.Execute(sBuscar)
' Comprobar que hay datos en el recordset
With tRs
' Si no hay datos...
'----------------------------------------------------------------------
' Nota aclaratoria del 18/Dic/2003:
' Cuando en un Recordset no hay datos, tanto BOF como EOF devuelven True
'----------------------------------------------------------------------
If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados", vbExclamation + vbOKOnly, ""
Else
' Mostrar los datos hallados
.MoveFirst

Do While Not .EOF
Text5.Text = Text5.Text & vbCrLf & .Fields("PrecioMI")
Text6.Text = (CSng(Text5))
.MoveNext

Loop

End If
End With
End Sub

Private Sub Command4_Click()

' Mostrar los datos en el listview
Dim sBuscar As String
Dim tRs As Recordset

'
' Comprobar si tiene caracteres "no válidos" para ADO:
' NOTA: Replace es una función de VB6
sBuscar = Text1

'
Text1 = sBuscar
' Formar la cadena de la consulta:
' Se busca por el nombre del autor y se muestran clasificados por el nombre
sBuscar = "SELECT * FROM NACIONAL WHERE CodigoMN LIKE '" & sBuscar & "'"
' Creamos un recordset del tipo "estático", el cual no es modificable
' para poder modificarlo, tendría que ser del tipo dbOpenDynamic
Set tRs = cnn.Execute(sBuscar)
' Comprobar que hay datos en el recordset
With tRs
' Si no hay datos...
'----------------------------------------------------------------------
' Nota aclaratoria del 18/Dic/2003:
' Cuando en un Recordset no hay datos, tanto BOF como EOF devuelven True
'----------------------------------------------------------------------
If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados", vbExclamation + vbOKOnly, ""
Else
' Mostrar los datos hallados
.MoveFirst

Do While Not .EOF
Text5.Text = Text5.Text & vbCrLf & .Fields("PrecioMN")
Text6.Text = (CSng(Text5))
.MoveNext

Loop

End If
End With

End Sub

Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text2.SetFocus

End Sub

Private Sub Command3_Click()
Unload Me
End Sub

amigo aca hay un link

http://www.elguille.info/VB/ejemplos/imagenes_ADODataControl.htm

pero te sugiero que mejor guardes la ruta de tu imagen y no la imagen en si por cuestion de tamaño de la base