關於ole object存到mdb的問題?(編號:6536)

下面是我的程式碼:雖然存進去了,但是叫出來卻顯示"不正確的圖片":Dim savename1 As String
Dim ppp As Picture

Set ppp = LoadPicture(sfilename)
Picture1.Picture = ppp
SavePicture Picture1.Image, savename & ".bmp"
savename1 = Dir1.Path & "\" & savename & ".bmp"
savename = savename + 1
Set da = OpenDatabase("c:\opensys\ttt.mdb")
sql = ""
sql = sql & "insert into pic(picture) values (" & ppp & ")"
da.Execute sql
  da.Close
Set da = Nothing
請教各位高手,還有什麼好方法?除了adodc及data