我发现错误了:下载功能中的SQL语句应该加个条件:
iRe.Open "select * from OfficeFileWHERE WenJianMinChen = 002", Cnn, adOpenStatic, adLockOptimistic但是保存到文件底下应该怎么改?
    With iStm
        .Mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .Write iRe("office")'这里只写一个字段,有没问题?导出是提示“连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。
        .SaveToFile CommonDialog1.FileName
    End With