使用以下语句正常，但用sql语句  update img set photo=iStm.Read where id=001 却报错，请高手指点下。是没加引号的问题吗。
我学VB 1个月了。
Set iStm = New ADODB.Stream
    With iStm
        .Type = adTypeBinary    '二进制模式
        .Open
        .LoadFromFile App.Path + "\com.doc"
    End With
     
    '打开保存文件的表
    Set iRe = New ADODB.Recordset
    With iRe
        .Open "select * from img", iConc, 1, 3
        .AddNew         '新增一条记录
        .Fields("photo") = iStm.Read
        .Update
    End With

[[it] 本帖最后由 ccc123 于 2008-12-2 22:02 编辑 [/it]]

有点明白了Stream 可能必须单独附值。不能在sql语句中一次性操作。