rst.Open "SELECT dbo.operations.id_oper, dbo.operations.m_type, dbo.message_type.short_mtype AS Òèï, dbo.operations.doc_number AS [Íîìåð äîêóìåíòà], " & _
                                "dbo.operations.doc_data, dbo.operations.[32_data_val] AS [Äàòà âàëþòèðîâàíèÿ], dbo.operations.[32_cur_code] AS [Êîä âàëþòû], " & _
                                "dbo.operations.[32_summ] AS Ñóììà, dbo.clients_u.full_name AS Êëèåíò, dbo.pokstat.status, dbo.pokstat.stat_comment AS Ñòàòóñ, dbo.operations.sys_time " & _
                             "FROM dbo.clients_u INNER JOIN " & _
                                    "dbo.pokstat INNER JOIN " & _
                                    "dbo.message_type INNER JOIN " & _
                                    "dbo.operations ON dbo.message_type.id_mt = dbo.operations.m_type ON dbo.pokstat.status = dbo.operations.status ON " & _
                                    "dbo.clients_u.id_cli = dbo.operations.[50_cli_code] " & _
                             "Where (dbo.operations.m_type = 1) And (dbo.operations.Status <> 8101) AND (doc_data >= " & dat_b & " and doc_data <= " & dat_e & ") AND dbo.pokstat.stat_comment ='" & id_s & "' " & _
                        "Union " & _
                             "SELECT operations.id_oper, operations.m_type, message_type.short_mtype AS [Òèï], operations.doc_number AS [Íîìåð äîêóìåíòà], dbo.operations.doc_data, " & _
                                    "operations.[32_data_val] AS [Äàòà âàëþòèðîâàíèÿ], operations.[32_cur_code] AS [Êîä âàëþòû], operations.[32_summ] AS [Ñóììà], " & _
                                    "[req_sw_58].[KOD_BANK] + [KOD_BRANCH] + ' ' + [NAME_SWIFT] AS [Êëèåíò], pokstat.status, pokstat.stat_comment AS [Ñòàòóñ], operations.sys_time " & _
                             "FROM pokstat INNER JOIN " & _
                                    "(req_sw_58 INNER JOIN " & _
                                    "(message_type INNER JOIN " & _
                                    "operations ON message_type.id_mt = operations.m_type) ON req_sw_58.ID = operations.[58_fin_org_benef]) ON " & _
                                    "pokstat.Status = operations.Status " & _
                            "Where (((operations.m_type) = 2) And (operations.Status <> 8101)) AND (doc_data >= " & dat_b & " and doc_data <= " & dat_e & ") AND dbo.pokstat.stat_comment ='" & id_s & "' ", Cn, adOpenStatic, adLockReadOnly

SELECT     dbo.operations.id_oper, dbo.operations.m_type, dbo.message_type.short_mtype AS Тип, dbo.operations.doc_number AS [Номер документа], 
                      dbo.operations.doc_data, dbo.operations.[32_data_val] AS [Дата валютирования], dbo.operations.[32_cur_code] AS [Код валюты], 
                      dbo.operations.[32_summ] AS Сумма, dbo.clients_u.full_name AS Клиент, dbo.pokstat.status, dbo.pokstat.stat_comment AS Статус, 
                      dbo.operations.sys_time
FROM         dbo.clients_u INNER JOIN
                      dbo.pokstat INNER JOIN
                      dbo.message_type INNER JOIN
                      dbo.operations ON dbo.message_type.id_mt = dbo.operations.m_type ON dbo.pokstat.status = dbo.operations.status ON 
                      dbo.clients_u.id_cli = dbo.operations.[50_cli_code]
WHERE     (dbo.operations.m_type =  1 ) AND (dbo.operations.status <>  8101 )
UNION
SELECT     operations.id_oper, operations.m_type, message_type.short_mtype AS [Тип], operations.doc_number AS [Номер документа], operations.doc_data, 
                      operations.[32_data_val] AS [Дата валютирования], operations.[32_cur_code] AS [Код валюты], operations.[32_summ] AS [Сумма], 
                      [req_sw_58].[KOD_BANK] + [KOD_BRANCH] + ' ' + [NAME_SWIFT] AS [Клиент], pokstat.status, pokstat.stat_comment AS [Статус], 
                      operations.sys_time
FROM         pokstat INNER JOIN
                      (req_sw_58 INNER JOIN
                      (message_type INNER JOIN
                      operations ON message_type.id_mt = operations.m_type) ON req_sw_58.ID = operations.[58_fin_org_benef]) ON 
                      pokstat.status = operations.status
WHERE     (((operations.m_type) =  2 ) AND (operations.status <>  8101 ))

rst.Open "SELECT  id_oper,[ТИП],[Номер документа],convert(nvarchar,doc_data,104) as [Дата документа],convert(nvarchar,[Дата валютирования],104) as [Дата валютир],[Код Валюты], " & _
                                "convert(money,[Сумма],0) as [Сумма],[Клиент],[Статус] FROM oper_all WHERE (doc_data >= " & dat_b & " and doc_data <= " & dat_e & ") AND [Статус] ='" & id_s & "' ", Cn, adOpenStatic, adLockReadOnly