Подключить >64 *.mdb файлов Access

Dim DB(0 To 999) As OleDbConnection
Dim KolVo = 65
For i = 1 To KolVo
     DB(i) = New OleDbConnection
     'DB(i).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\444\Temp.mdb"
     DB(i).ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\444\Temp.mdb"
     DB(i).Open()
Next i

Public Class Form1
    Dim Class1 As New Class1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Class1.Make1()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Class1.Make2()
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Class1.Make3()
    End Sub
End Class

Imports System.Data.OleDb
 
Public Class Class1
    Dim DB As New OleDbConnection
    Sub New()
        DB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\aaaSashaMGGU\Access\00.mdb"
        DB.Open()
    End Sub
    Public Sub Make1()
        Dim Query As String = "INSERT INTO Таблица01 (qq) VALUES (1111111111111)"
        Dim CMD = New OleDb.OleDbCommand(Query, DB)
        CMD.ExecuteNonQuery()
    End Sub
    Public Sub Make2()
        Dim Query As String = "INSERT INTO Таблица02 (qq) VALUES (1111111111111)"
        Dim CMD = New OleDb.OleDbCommand(Query, DB)
        CMD.ExecuteNonQuery()
    End Sub
    Public Sub Make3()
        Dim Query As String = "INSERT INTO Таблица03 (qq) VALUES (1111111111111)"
        Dim CMD = New OleDb.OleDbCommand(Query, DB)
        CMD.ExecuteNonQuery()
    End Sub
End Class