update不执行，高手帮忙啊！！！

'保存文件到数据库中
Sub s_SaveFile()
    Dim iStm As ADODB.Stream
    Dim iRe As ADODB.Recordset
    Dim iConcstr As String
    Dim myfilename As String
   CommonDialog1.CancelError = True
   On Error GoTo Cancel
              CommonDialog1.Filter = "图纸文件|*.dwg"       '过滤器指定在对话框的文件列表框中显示的文件的类型
              CommonDialog1.Action = 1
              myfilename = CommonDialog1.filename
             CommonDialog1.FilterIndex = 1
            DwgThumbnail1.DwgFileName = CommonDialog1.filename
     If MsgBox("确定选择此文件？", vbYesNo, "提示") = vbYes Then
             '读取文件到内容
            Set iStm = New ADODB.Stream
            With iStm
                .Type = adTypeBinary  '二进制模式
                .Open
                .LoadFromFile myfilename
            End With
           Dim s As String
            '打开保存文件的表
            Set iRe = New ADODB.Recordset
            With iRe
                 s = "select * from dwgmanager"
                 .Open s, iConc, 1, 3
                  .AddNew        '新增一条记录
                     .Fields("t") = iStm.Read
                     .Fields("dwgpath").Value = Trim(dwgcode.Text)
                     .Fields("dwgbh").Value = Trim(dwgbh.Text)
                      .Fields("dwgname").Value = Trim(dwgname.Text)
                      .Fields("dwgbb").Value = Trim(versionCombo.Text)
                       .Fields("dwgdeigner").Value = Trim(designercom.Text)
                      .UpdateBatch
                    '完成后关闭对象
                   MsgBox "添加成功!", vbInformation + vbOKOnly, 录入图纸.Caption
            End With
            iRe.Close
            iStm.Close
   Else
      MsgBox "未选择图纸!", vbInformation + vbOKOnly, 录入图纸.Caption
   End If
Cancel:
End Sub代码如上