I am using following code in dispose() method
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
and calling this method everytime in the database operation. But it still show me too many active connection.