Вот процедура
CREATE PROCEDURE INS_ONE_XXX
@DATAS varchar(100),
@IDN bigint = 0 output
AS
SET @IDN = 0
SELECT @IDN=ISNULL(ID,0)FROM DOLZ WHERE NAME=@DATAS
if @IDN=0
BEGIN
INSERT INTO DOLZ (NAME) VALUES (@DATAS)
SET @IDN = SCOPE_IDENTITY()
END

SELECT @IDN AS ID
GO

А вот вызывающий её код VB:
Dim rec As New ADODB.Recordset
Dim K As Long
rec.Open "INS_ONE_XXX 'xx_data'", СurrentProject.Connection
MsgBox (rec("ID"))
End Sub

Так вот если 'xx_data' есть в таблице (т.е. INSERT не проходит) - всё нормально ID возвращается в виде recordet с одним полем ID и одной строкой.
Но если пошло по ветке с INSERT - труба. возвращается полностью пустой recordset без полей.
В тоже время в Query Analiser возврашаются в обоих случаях идентичные recordset.
Я уже варюсь. Кто может такое объяснить???

Проверялось даже вставкой SELECT 1 AS ID - тоже самое.

А как достать другой recordset?
Можно пример?

Всё разобрался. Спасибо!!!

Set rec = rec.NextRecordset