Jack,
Я верю, что вы сделать его небольш по-разному, как using yeilds метода исполнять переднее только, прочитал только recordset. Попытайтесь оно эта дорога:
Общественная функция GetRecordSet () как ADODB.Recordset
Тусклый cnn как новое ADODB.Connection
cnn. Раскройте sqlServerConnection
cnn.CursorLocation = adUseClient
Тусклое cmd как ADODB.Command
Установите cmd = новое ADODB.Command
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = «StoredProcName»
Тусклые rs как новое ADODB.Recordset
Установите cmd GetRecordSet = rs.open, adOpenKeyset, adLockOptimistic, adCmdStoredProc
Закончите функцию
JimD.