VB程序崩溃但没有任何错误提示？ - VB / 基础类

高手们帮忙分析一下吧
我的一个VB程序经常运行一段时间后就莫名其妙的崩溃了，但没有任何错误提示，就是直接消失
生成EXE和在IDE调试都是这样
程序里是在一个控件里封装了1个winsock控件，2个timer和1个msscript
timer控件定时触发winsock控件的connect方法，连接前先检查了winsock的状态，如果处于连接中，就先close
同时设置timer的Enabled为false
在winsock的close事件里再设置为true激活timer等待下次连接
代码基本上就是截取winsock收到的数据，然后再激活timer等下次连接。
并且在很多过程中用到adodb.Connection对象操作数据库，连接数据库，读写，关闭
程序里用到的api只有MultiByteToWideChar和GetPrivateProfileString

然后在form里把这个控件作为控件数组来用，
两百多个的时候，没什么问题。3-500个的时候，就过段时间崩溃一回。
每次崩溃都是程序直接消失，没任何错误提示。一般程序崩溃的时候应该出来个提示说地址XXX什么 什么 的
我仔细检查了N多遍代码，也没找出来哪个地方有问题

求高手们帮我分析分析是什么原因，什么样的操作会出这样的问题
快急死我了

---

会不会是人的程序不断地建立winsock实例, 却没有及时释放不用的, 结果内存到一定时间满了就退出了

---

不要用VB IDE自带的调试器，用其他debuger调试exe文件，比如windbg,ollydbg等。

先搞清楚为什么退出。

---

在你的代码中觉得必要的地方加写日志，然后通过日志内容判断意外退出出现在哪一句。
VB code:
Private Sub logtofile(s As String)
Dim f As Integer
On Error R