Visual Basic - Que esta mal?por favor

como muestro las imágenes??,os dejo parte del código....
Dim i As Integer
Dim xExcel As Excel.Application
Dim wBook As Workbook
Dim cadenaCOD As String
Dim cadenaNOMBRE As String
Dim cadenaCOMENTARIO As String
Dim cadenafoto As Picture

cadenaCOD = Me.lblCodigocli.Caption
cadenaNOMBRE = Me.txtnombre.Text
cadenaCOMENTARIO = Me.txtcomentario.Text
cadenafoto =picture1 'AQUÍ TENGO EL PROBLEMA

Set xExcel = New Excel.Application
xExcel.Workbooks.Add App.Path & "\ACREDITACION.xlt"

Me.MousePointer = vbHourglass
xExcel.Range("c7").Select
xExcel.ActiveCell.FormulaR1C1 = cadenaNOMBRE
xExcel.Range("c9").Select
xExcel.ActiveCell.FormulaR1C1 = cadenaCOD
xExcel.Range("e3").Select
xExcel.ActiveCell.FormulaR1C1 = cadenaCOMENTARIO
xExcel.Range("d4").Select
xExcel.ActiveCell.FormulaR1C1 = cadenafoto

End Sub

Vibet, tratándose de un objeto Picture, la asignación debe hacerse por el comando SET y no de esa manera literal en la que lo estas haciendo

Set cadenafoto = picture1 ASÍ SE RESOLVERÍA

Entendiendo obviamente que picture1 sería tambiñen un objeto picture o una imagen.

Muchas Gracias, me ha servido para recoger la imagen el problema es que en la plantilla me recoge un número.... en la base de datos las guardo como objeto ole.
foto>>>>>>(en acces)objeto ole>>>>>>>>binarios largos
no se , en qué tipo de dato tendría que guardar las imágenes?texto , ole, integer......
muchas gracias por tu tiempo!