Visual Basic - SOLO ES UN PROBLEMA DE RECORSET AYUDA PORFAVOR!!

HOLA
OJALA ALGUIEN ME PUEDA AYUDAR O DAR UNA ORIENTACION PORFAVOR CON ESTE PROBLEMA:
ME MARCA ESTE ERROR "LA OPERACION SOLICITADA POR LA APLICACION NO ESTA PERMITIDA SI EL OBJETO ESTA CERRADO" Y APARECE EN ESTA LINEA : While (Not res.EOF)
Y ESTE ES MI CODIGO,previamente declare los objetos y la conexion:
OJALA ME PUEDAN ORIENTAR , MUCHAS GRACIAS POR SU ATENCION
Private Sub Command5_Click()
iscita = InputBox("Introduzca la cita", "Añadir cita")
If iscita <> "" Then
Set res = New ADODB.Recordset
Set cnm = New ADODB.Command
Set PARAMETRO = New ADODB.Parameter
Set cnm.ActiveConnection = cn
cnm.CommandText = "spcliente"
cnm.CommandType = adCmdStoredProc
cnm.Parameters.Append cnm.CreateParameter("cita", adVarChar, adParamInput, 10, iscita)
Set res = cnm.Execute()
Set FLDS = res.Fields
res.Open "nombre_bus " & iscita, cn, adOpenForwardOnly, adLockReadOnly
While (Not res.EOF)
For Each fld In FLDS
Debug.Print fld.Value
Next
Debug.Print ""
res.MoveNext
Wend
res.Close
cn.Close
End If
End Sub

El problema si es que es en esa línea es porque el recordset no está extrañamente abierto, pero creo que la solución está en la variable de conexión, para ser más exacto en el tipo de cursor de la conexión

Pero prueba
res.cursorlocation = 3 'o adUseClient
res.Open "nombre_bus " & iscita, cn, adOpenForwardOnly, adLockReadOnly
While (Not res.EOF)
For Each fld In FLDS ....

Si esto lo soluciona antes que abras la conexión dale el mismo cursor:
cnn.CursorLocation = adUseClient
cnn.Open "TuCadenaDeConexion;"

Dre seguro que era este el asunto de todo