Get #FileNo, , FileData() '读取文件内容到数组 Close #FileNo '关闭文件 recset(strField).value = FileData() '保存数据 recset.Update '更新数据 Erase FileData '释放内存