Visual Basic - Recordset ADO error al cerrarlo

Tengo este codigo para abrir un recordset, es ADO

Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open strSQL, mobjGestorBaseDatos.Conexion, adOpenStatic, adLockOptimistic

En otro punto del codigo quiero cerrar el recordset y ponerlo a nothing

If Not adoPrimaryRS Is Nothing Then
If adoPrimaryRS.State = adStateOpen Then
adoPrimaryRS.Close
End If
Set adoPrimaryRS = Nothing
End If

El problema es el siguiente, que al ejecutar la linea de Close me peta y me sale un error de que la operacion no esta permitida en este contexto.

Queria saber por que la propiedad State me dice que esta adStateOPen y luego no puede cerrarlo?

Gracias.

Eso ocurre cuando se produce algun error en una inserccion o modificacion, intenta cancelar la actualizacion del registro antes de cerrarlo(...cancelupdate) y luego cierra. Si ahora has podido cerrarlo es po eso, echa un vistazo y busca que te falla con respecto a los datos de la base de datos.

Gracias. Era por el estado del Recordset, con modificaciones pendientes. He hecho cancelupdate y entonces deja cerrarlo sin poblemas.