End If

If rs0.State = adStateOpen Then rs0.Close

rs0.Open "SELECT * FROM 资料信息 " & _

    "WHERE 文件编号='" & Trim(Text1) & "' ", strcn0, , , adCmdText '选择条件

If rs0.EOF Then

  rs0.AddNew

  rs0!工程项目名 = Trim(Combo1)

  rs0!基建档案类名 = Trim(Combo2)

  rs0!文件编号 = Trim(Text1)

  rs0!收件人 = Trim(Text2)

  rs0!发件人 = Trim(Text3)

  rs0!资料名 = Trim(Text4)

  rs0!存放路径 = Trim(Text5)

  rs0!文件说明 = Trim(Text6)

  rs0!文本归档位置 = Trim(Text7)

  rs0!收到时间 = Format(DTPicker0, "yyyy-mm-dd")

  rs0!转交时间 = Format(DTPicker1, "yyyy-mm-dd")

  rs0!归档时间 = Format(DTPicker2, "yyyy-mm-dd")

  rs0!归档人 = Trim(Text11)

  rs0!拟定密级 = Trim(Combo3)

  rs0.UpdateBatch

  rs0.Close

  '写文件到数据库字段wj

 If Trim(Text4) <> "" And Trim(Text5) <> "" Then

  Dim iStm As ADODB.Stream

  '读取文件到内容

  Set iStm = New ADODB.Stream

  With iStm

   .Type = adTypeBinary  '二进制模式

   .Open

   .LoadFromFile Text5 & Text4

  End With

  If rs0.State = adStateOpen Then rs0.Close

  rs0.Open "SELECT * FROM 资料信息 WHERE 文件编号='" & Trim(Text1) & "' ", strcn0, , , adCmdText  '选择条件

  rs0!wj = iStm.Read

  rs0.UpdateBatch

  rs0.Close

  '完成后关闭对象

  iStm.Close

   '删除原文件

  Kill Text5 & Text4