るきお様

アドバイス有り難うございます。
作成したプログラムはシンプルなもので、以下のようなものです。
Form1にButton1を配置しています

***** 以下コード

Imports System.Data.OleDb

Public Class Form1
    '個人データファイルの一覧を入れる配列
    Dim PersonalFileList() As String

    '初期化
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        '個人データファイル一覧を収得
        PersonalFileList = System.IO.Directory.GetFiles("作業用フォルダ", "*.accdb")
    End Sub

    'Start
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        '追加するテーブルの設定
        Dim NewTable As String = "CREATE TABLE NewTable(ID INT, NAME STRING・・・・)
       
        '全個人データファイルにNewTableを追加する
        For i As Integer = 0 To PersonalFileList.Count - 1
            Try
                Dim Cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PersonalFileList(i))
                Dim SQLCm As OleDbCommand = Cn.CreateCommand
                Cn.Open()
                SQLCm = New OleDbCommand(NewTable, Cn)
                SQLCm.ExecuteNonQuery()
                Cn.Close()
                SQLCm.Dispose()
                Cn.Dispose()
            Catch ex As Exception
                MsgBox(Err.Description)
            End Try
        Next i
        MsgBox("終了しました")
    End Sub

End Class

***** ここまでコード

4年前には問題なく動いたプログラムです。Cn.Dispose()してもlaccdbファイルが消えないためエラーになります。