Visual Basic - ADO - Execute

Estoy usando el siguente código (no necesariamente en el mismo Form) pero no me devuelve ninguna fila. ¡Ayúdenme!

Global ADOCnn As ADODB.Connection

Set ADOCnn = New ADODB.Connection

ADOCnn.CursorLocation = adUseServer
ADOCnn.Open "DSN=SEGUROS", "sa", ""

Dim ADOCmd As New ADODB.Command
Dim ADORec As ADODB.Recordset

Set ADOCmd.ActiveConnection = ADOCnn

ADOCmd.CommandText = "sp_MiProcedimiento"
ADOCmd.CommandType = adCmdStoredProc

Set ADORec = ADOCmd.Execute(Filas)

Para que te muestre el record deberias utilizar la siguiente función:

adorec.open "sp_MiProcedimiento",cn,...,...