vb 无法存取access的图片

Dim iconcstr As String
Dim iconc As ADODB.Connection
Sub save()
Dim li As ADODB.Stream
Dim lr As ADODB.Recordset
Dim iconcstr As String
Set li = New ADODB.Stream
With li
.Type = adTypeBinary
.Open
.LoadFromFile App.Path & "\ g"
End With
Set lr = New ADODB.Recordset
With lr
.Open "select * from 相片", iconc, 1, 3
.AddNew
.Fields("123") =  ad
.Update
End With
li.Close
lr.Close
End Sub
Sub read()
Dim li As ADODB.Stream
Dim lr As ADODB.Recordset
Set lr = New ADODB.Recordset
    lr.Open "select * from 相片", iconc, adOpenKeyset, adLockReadOnly
    Set li = New ADODB.Stream
With li
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write lr("123")
.SaveToFile App.Path & "\ g"
End With
Image1.Picture = LoadPicture(App.Path & "\ g")
li.Close
lr.Close
End Sub

Private Sub Command1_Click()
Call read
End Sub

Private Sub Form_Load()
iconcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\学习\作业\office\access\图片管理.mdb;Persist Security Info=False"
Set iconc = New ADODB.Connection
iconc.Open iconcstr
End Sub

Private Sub Form_Unload(Cancel As Integer)
iconc.Close
Set iconc = Nothing
End Sub
这段代码有什么错吗,为什么存的图片都是没有内容的,而且这图片也占用空间

全部

W***

回答