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