高手急救 ,如下语句为啥执行不成功

Question

这样用SQL直接更新不行
改一下
Dim la As ADODB.stream
Dim iRe As ADODB.RecordsetSet la = New ADODB.stream
la.Type = adTypeBinary
la.Open
la.LoadFromFile "c:\topmain.jpg"Set iRe = New ADODB.Recordset
    With iRe
        .Open "外贸下单总表", CL_CN, adOpenKeyset, adLockOptimistic
        .AddNew         '新增一条记录
        .Fields("filesave") = la.Read
        .Update
    End With
iRe.Close
la.Close