problemer med Command objektet

Jeg har fået lidt problemer med at bruge command objektet, som jeg anvender i en function i en VB dll som følger :

Private objconn As adodb.Connection
Private objCommand As adodb.Command
Private objrec As adodb.Recordset

function runsp() as adodb.recordset
  Set objconn = CreateObject(\"ADODB.connection\")
 
  Set objCommand = CreateObject(\"ADODB.Command\")
  objCommand.CommandType = adCmdStoredProc

  Set objparameter = objCommand.CreateParameter
 
objparameter.Type = adInteger
  objparameter.Size = 4
  objparameter.name = \"ident\"
  objparameter.Direction = adParamInput
  objparameter.value = 123

  objCommand.Parameters.Append objparameter

  objconn.Open \"min connection string\"

  Set objrec = CreateObject(\"adodb.Recordset\")

  objCommand.CommandText = \"sp_test\"
       
  Set objCommand.ActiveConnection = objconn

  Set objrec = objCommand.Execute

  set runsp = objrec
end function

dette kører sådan set perfekt, indtil jeg vil returnere noget fra en stored procedure der laver en insert som denne :

create procedure sp_test

@ident int

as

insert into testtabel (ident)
values(@ident)

select 1234567 as testfelt


Når jeg fyrer denne procedure af i et rent SQL miljø returnerer den fint 1234567, men når jeg bruger runsp til at køre den returneres intet recordset, med insert virker fint.

Fjerner jeg insert delen fra proceduren virker selecten igen, men jeg kan ikke have begge to.

Er der nogen der har en anelse om hvad der kan være galt. Min procedure virker fint med alle andre rene selects og inserts men kan ikke li at jeg gør begge ting i en procedure.