Visual Basic

Copy Code

 Overridable  Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
  ' // Check to see if Dispose has already been called.
  If Not m_bIsDisposed Then
    If bIsDisposing Then
      ' // Dispose managed resources.
      If m_bMainConnectionIsCreatedLocal Then
        ' // Object is created in this class, so destroy it here.
        m_scoMainConnection.Close()
        m_scoMainConnection.Dispose()
        m_bMainConnectionIsCreatedLocal = True
      End If
      m_cpMainConnectionProvider = Nothing
      m_scoMainConnection = Nothing
    End If
  End If
  m_bIsDisposed = True
 End Sub