create or alter function [dbo].[fnLS_ID] (
      @srv sysname, 
      @db sysname
)
returns @tbl table ([id] int) 
as begin
	declare @sConnectionString varchar(150) = 'Provider=SQLOLEDB;Server=(local);Database=test;Integrated Security=SSPI;'
	declare
			@cn int,
			@hResult int,
			@sErrorSource varchar(255),
			@sErrorDesc varchar(255),
			@sSQL varchar(8000),
			@rs int,
			@xmlDoc int,
			@xml_data varchar(8000),
			@xml xml

	--	**********************************
	set @sSQL = 'select f from ' + quotename(@srv) + '.' + quotename(@db) + '.[dbo].[test]';

	exec @hResult = sp_OACreate 'ADODB.Connection', @cn out;
	exec @hResult = sp_OACreate 'MSXML2.DOMDocument', @xmlDoc out;

	exec @hResult = sp_OAMethod @cn, 'Open', null, @sConnectionString;

	exec @hResult = sp_OAMethod @cn, 'Execute', @rs out, @sSQL;
	exec @hResult = sp_OAMethod @rs, 'Save', null, @xmlDoc, 1;

	exec @hResult = sp_OAMethod @xmlDoc, 'xml', @xml_data out;

	set @xml = cast(@xml_data as xml)

	insert into @tbl (id)
	select
		x.c.value('@f', 'int')
	from @xml.nodes('xml/*:data/*:row') as x(c)

	--
	exec @hResult = sp_OAMethod @cn, 'Close';
	exec @hResult = sp_OADestroy @xmlDoc;
	exec @hResult = sp_OADestroy @rs;
	exec @hResult = sp_OADestroy @cn;

	--
	return;
end;