Question

VB 关于关闭数据库时，问题出现“vb6.exe - 应用程序出错”，...

...及对话框内容为“"0x03fbf291"指令引用的...，内存，该内存不能为"read"...”

该代码在子窗口内，程序段如下：
Private Sub Form_Unload(Cancel As Integer)
If Conn.State = adStateOpen Then '如果库开着的话，先关闭
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End If

If Dir(App.Path & "\DetectionFileThere\SingleDataBase.txt") <> "" Or SingleDataBase <> "" Then '如果存在这个文件，说明过去题库被改过
Open App.Path & "\DetectionFileThere\SingleDataBase.txt" For Output As #1 '则建立一个文件，作为修改过数据库文件而未整合的标记
Close #1
SingleDataBase = ""
MsgBox "可重启本系统时，由系统自动建立。", vbOKOnly, "提示"
End If
Unload Me
End Sub

发现的问题：
在窗口做完“新增”、“修改”、“删除”等动作后，再执行上面代码后，总是在点击MsgBox的“确定”后，出现“vb6.exe - 应用程序出错”的对话框。再试了试在Form_Unload下面的第一条加On

Error Resume Next，还是出现“vb6.exe - 应用程序出错”的对话框。怪了，有时完全正常，有时子窗口是关了，但父窗口也一起关了。完了，没办法了。只能请求帮助了。
注：“新增”、“修改”、“删除”等代码中没有将表、库关闭过。
请从代码上进行分析。谢谢

Answer 1

你好！电脑出现：【该内存不能为read与written】，原因是比较复杂的，请对症下药！

【答案原创，引用请说明，原作者：力王历史】！偶然出现！点：【确定或取消】，即可！

1。配置错误！【重启，出完电脑品牌后，按F8，安全模式，最后一次正确配置，回车，回车】！
2。系统漏洞！【360安全卫士或金山卫士，或可牛免费杀毒，修复：高危和重要的，其它忽略】！
3。软件冲突！【卸载不常用的软件，保持系统稳定，尤其是同类型的软件，不兼容】！
4。软件版本过旧！【使用：（驱动人生），更新：显卡驱动，声卡驱动！其它软件，覆盖安装】！
5。病毒木马！【杀毒软件，全盘扫描与自定义扫描，完毕后，隔离区，彻底删除】！
6。恶评插件！【可牛免费杀毒，金山卫士，或360安全卫士，清理恶评插件】！
7。可疑启动项！【360系统急救箱，开始急救，文件恢复区，彻底删除文件】！
8。系统文件损坏！【金山急救箱】，扩展扫描，立即扫描，立即处理，重启电脑】！
9。专业工具！【去网上下载一个：read修复工具，修复，试试】！
10。指令修复法！开始菜单，运行 ，输入cmd， 回车，在命令提示符下输入(复制即可) ：
for %1 in (%windir%\system32\*.ocx) do regsvr32 /s %1
粘贴，回车，滚动完毕后，再输入：
for %1 in (%windir%\system32\*.dll) do regsvr32.exe /s %1
回车！直到屏幕滚动停止为止，重启电脑！