Jack,
Je vous considère de devoir le faire légèrement différemment, en tant qu'using les yeilds de méthode d'exécution un vers l'avant seulement, ai lu seulement le recordset. L'essayer de cette façon :
Fonction publique GetRecordSet () comme ADODB.Recordset
Faible CNN en tant que nouvel ADODB.Connection
CNN. Ouvrir le sqlServerConnection
cnn.CursorLocation = adUseClient
Faible cmd comme ADODB.Command
Placer le cmd = nouvel ADODB.Command
cmd.ActiveConnection = CNN
cmd.CommandType = adCmdStoredProc
cmd.CommandText = « StoredProcName »
Faibles rs en tant que nouvel ADODB.Recordset
Placer le cmd de GetRecordSet = de rs.open, adOpenKeyset, adLockOptimistic, adCmdStoredProc
Finir la fonction
JimD.