dispose() メソッドで次のコードを使用しています
Public Sub Dispose() Implements System.IDisposable.Dispose
If Not IsDBNull(Command) And Not Command Is Nothing Then
Dim tmpsqlcon As SqlConnection
tmpsqlcon = Command.Connection
Debug.Assert(Not IsDBNull(tmpsqlcon))
SqlConnection.ClearPool(tmpsqlcon)
tmpsqlcon.Close()
Command.Dispose()
tmpsqlcon.Dispose()
End If
End Sub
データベース操作で毎回このメソッドを呼び出します。しかし、それでもアクティブな接続が多すぎることがわかります。