Close all OleDB Connections to MS Access Database when exit application

gistfile1.txt

'Close all OleDB Connections to MS Access Database when exit application
'adonetaccess2003.blogspot.com
Public Sub CloseCN()
        If Not IsNothing(CN) Then
            For Each p As Process In Process.GetProcesses()
                If p.ProcessName = "MSACCESS" Then
                    Try
                        p.CloseMainWindow()
                        p.Dispose()
                        p.Kill()
                    Catch ex As Exception
                        Exit Sub
                    End Try
                End If
            Next
            CN.Dispose()
            CN = Nothing
        End If
    End Sub