Set rst1 = CreateObject("ADODB.Recordset")
rst1.Open "SELECT [Bids].[Дата],[Boxes].[Бокс],[Cars].[Марка автомобиля],[Names].[ФИО человека],[Bids].[Установка],[TypePayment].[Наименование формы оплаты]" _
& " From [Bids]" _
& " left outer join [Boxes] on [Boxes].[Индекс бокса]=[Bids].[Бокс]" _
& " left outer join [Cars] on [Cars].[Индекс автомобиля]=[Bids].[Автомобиль]" _
& " left outer join [Names] on [Names].[Индекс человека]=[Bids].[Исполнитель]" _
& " left outer join [TypePayment] on [TypePayment].[Индекс формы оплаты]=[Bids].[Форма оплаты] where [Bids].[Индекс заявки] = " & BidInd, Conn1
rst1.activeconnection = Nothing