在读取显示时 文件流 mst.Write mrc2.Fields("imgae1").Value  报错 参数类型不正确，或不在可以接受的范围内 或与其他参数冲突  实时错误 3001

存储没有问题，OK
            Set cn = New Connection  
            Set mrc2 = New Recordset
            strCn = "Provider=sqloledb;server=.;Database=sxcpmc;Uid=sa;Pwd=;"
            cn.Open strCn   
            mrc2.Open "select  *  from gongdan", cn, adOpenKeyset, adLockOptimistic
             mrc2.AddNew
             mrc2.Fields("gongdah").Value = Trim(Text1(0).Text) '产品名称
              Set mst = New ADODB.Stream
              mst.Type = adTypeBinary
              mst.Open
              mst.LoadFromFile (wname)
              mrc2.Fields("imgae1").Value = mst.Read
              Set mst = Nothing    '马上释放掉这个变量体加快运行速度
              mrc2.Update
但读出来显示 就总是报错 说类型不对。   

  Set cn = New Connection    '不事先声明一个新连接和新的记录集，会在cn.Open strCn 报错 和mrc2.Open "报错
            Set mrc2 = New Recordset
            strCn = "Provider=sqloledb;server=.;Database=sxcpmc;Uid=sa;Pwd=;"
            cn.Open strCn   
            mrc2.Open "select  imgae1  from gongdan", cn, adOpenKeyset, adLockOptimistic
             Set mst = New ADODB.Stream
             pict = "c:\temp.tmp"     '临时文件,用来保存读出的图片
          With mst
             .Mode = adModeReadWrite
            .Type = adTypeBinary
             .Open
             .Position = 0
            .Write mrc2.Fields("imgae1").Value        '写入数据库中的数据至Stream中
            .SaveToFile pict, adSaveCreateOverWrite  '将Stream中数据写入临时文件中
            .Close
          End With
            Picture1.Picture = LoadPicture(pict)  '用Picture控件显示图像
             Kill pict
            Set cn = Nothing   '以后导入图片使用
            Set mrc2 = Nothing

我错在哪里？？高手出手帮忙解决，谢谢！

stream 我想要看stream文件流方式的，网上的代码也差不多，我不明白到了我手上就不对啦？  image1字段确实是image类型

终于想明白了，代码没有问题，而是SQL查询逻辑上错误，第1条为空