Visual Basic - ERROR:NO ES VALIDA SI EL OBJETO ESTA CERRADO

HOLA
YA SOLUCIONE LO DE LA PREGUNTA ANTERIOR SOLO QUE PORQUE SI APARENTEMENTE ESTA TODO BIEN PORQUE 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

Amiga Angela, una de las cosas que siempre hago cuando se me presentan estos problemas es coger el codigo de la linea "nombre_bus " & iscita, que seria algo asi "nombre_bus 1" una vez reemplazado el valor del parametro y lo trataria de ejecutar con el analizador de consultas de SQL. ten la plena seguridad que el mensaje que recibas es mas claro que el que te da VB.

Si te da el mensaje que mencionas es porque la linea anterior, donde se supone abre el recordset, termino con errores y por lo tanto el recordset no se abrio.

Cuidate y buen fin de semana

Saludos desde Lima