主题：怎么导入多个mdb中的多个表

Dim dlg As New OpenFileDialog

dlg.Filter = "Access文件|*.mdb"

dlg.MultiSelect = True '允许选择多个文件

If dlg.ShowDialog =DialogResult.OK Then

    For Each fl As String In dlg.FileNames

        Dim mg As New Merger

        mg.SourcePath = fl

        Dim name As String

        Dim year As Integer

        For year = 2019 To 2019 Step 1

            Dim month As Integer

            For month = 1 To 12 Step 1

                If month < 10 Then

                    name = year & "0" & month & "_Memory"

                    mg.SourceTableName = name

                    mg.DataTableName = name

                    mg.Merge()

                Else If month < 13

                    name = year & month & "_Memory"

                    mg.SourceTableName = name

                    mg.DataTableName = name

                    mg.Merge()

                    Continue For

                End If

            Next

            year = year + 1

        Next

    Next

End If