Ayuda

Necesito tu ayuda en resolver un problema.
Yo estoy trabajando con Visual basic accediendo a una base
SQL Server utilizando ADO.
Y me tira este siguiente error: Error 3704 "Operation is not
allowed when the object is closed."
Dim CMD As New ADODB.Command
Dim RS As ADODB.Recordset
Set CMD.ActiveConnection = Conexion
CMD.CommandType = adCmdStoredProc
CMD.CommandText = "spListarUsuariosActivos"
CMD.Prepared = True
CMD.Parameters("@Categoria").Value = xNroCategoria
Set RS = New ADODB.Recordset
Set RS = CMD.Execute
If RS.EOF = False Then
Resultado = RS.GetRows
End If
RS.Close
Set CMD = Nothing
Lo raro es que tengo más de 100 códigos iguales para levantar un
recorset pero en este lugar me tira este error.
Espero puedas ayudarme a solucionarlo.
Besos