------------------------------------------
Column1=[Адрес].[Улица]
Column2=[Улицы].[Код_улицы]
------------------------------------------
Column1=[Ведомость].[Код_читателя]
Column2=[Читатели].[Номер_билета]
------------------------------------------
Column1=[Выдача].[Номер_билета]
Column2=[Читатели].[Номер_билета]
------------------------------------------
Column1=[Выдача].[Код_экземпляра]
Column2=[Экземпляр].[Код_экземпляра]
------------------------------------------
Column1=[Издание].[Код_автора]
Column2=[Авторы].[Код_автора]
------------------------------------------
Column1=[Издание].[Код_вида_издания]
Column2=[Вид_издания].[Код_вида_издания]
------------------------------------------
Column1=[Издание].[Заглавие]
Column2=[Заглавия].[Код_заглавия]
------------------------------------------
Column1=[Издание].[Код_издательства]
Column2=[Издательства].[Код_издательства]
------------------------------------------
Column1=[Читатели].[Код_адреса]
Column2=[Адрес].[Код_адреса]
------------------------------------------
Column1=[Экземпляр].[Код_издания]
Column2=[Издание].[Код_издания]

Dim arr as string(5) = {"Авторы", "Издание", "Издательства", "Экземпляр", "ещё строка"}

StrResult="[Издание].[Код_автора]= [Авторы].[Код_автора], [Издание].[Код_издательства] = [Издательства].[Код_издательства], [Экземпляр].[Код_издания] = [Издание].[Код_издания]"