怎样遍历已连接的SQL并关闭？

VB写的程序里面都是连接到SQL数据库的，有时候运行过程中程序会遇到一些错误导致意外关闭，但有些SQL连接却没关，导致程序一直在占用内存，必须通过任务管理器才能结束进程。
我想通过错误检测然后调到一段关闭数据库的过程中去，这个过程想用for each。。。next检测所有已连接的SQL,并关闭它。
请问这段程序该怎么去写？

最好是避免有错误发生

你可以在相应的过程中添加错误捕获语句，当捕获到错误时，把应该关闭掉的数据库连接关闭掉。