Visual Basic para Aplicaciones - Vb 6.0 Excell e imagenes

Hola , quisiera saber si alguien me puede ayudar con lo siguiente, necesito poner una imagen en una celda de excell desde visual basic 6.0. la imagen la tengo almacenada en SQL 2000, como una ruta al archivo en formato bmp, como hago para cargar este archivo de imagen en una celda excell ?

Mil Gracias

Hola, la imagen la puedes insertar en una HOJA de Excel (NO dentro de la celda) y en la posicion de la celda que quieras, este código lo hace...

Private Sub cmdExcel_Click()
Dim objExcel As Object
Dim objLibro As Object
Dim strArchivo As String
Dim strCelda As String

On Error Resume Next

Set objExcel = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
End If

objExcel.Visible = True

If Len(Dir(App.Path & "\Prueba.xls")) > 0 Then
Set objLibro = objExcel.WorkBooks.Open(App.Path & "\Prueba.xls")

'Ruta del archivo a insertar
strArchivo = "D:\1Usuarios\Mau\Aida.bmp"
'Celda donde se insertara
strCelda = "C5"

objLibro.ActiveSheet.Shapes.AddPicture _
strArchivo, _
False, _
True, _
objLibro.ActiveSheet.Range(strCelda).Left, _
objLibro.ActiveSheet.Range(strCelda).Top, _
100, _
100

objLibro.Save
objLibro.Close
End If
objExcel.Quit
Set objLibro = Nothing
Set objExcel = Nothing

End Sub