Visual Basic - problema con cursortype

En el documento adjunto presento la codificación de avanzar un registro con un objeto Recordset, sin embargo al ejecutar me envía un error \'el conjunto de filas no permite recuperación hacia atrás\' el cual al parecer se debe a que el valor que se entregó originalmente al
CursorType (adOpenDynamic) se pierde, tomando el valor
predeterminado que es el adOpenForwardOnly.
¿Esto es efectivo?, que debo hacer para poder mover los registros con el objeto recordset (funciona con todo menos con el moveprevious).
codigo:
Private Sub Form_Load()
Set vconexion = New ADODB.Connection
vconexion.ConnectionString =\"Provider=MSDASQL.1;User ID=adminsp;PWD=adminsp;Data Source=orac2;\"
vconexion.Open

Set vrecordset = New ADODB.Recordset
Set vrecordset.ActiveConnection = vconexion
vrecordset.Source = \"select uni_clave from In_uninsp where uni_codigo = 77\"
vrecordset.Open , , adOpenDynamic, adLockPessimistic, adCmdText

Set Me.uniclave.DataSource = vrecordset
Me.uniclave.DataField = \"uni_clave\"

vrecordset.MoveFirst
vrecordset.MoveNext
vrecordset.MovePrevious ***** en esta parte se cae el programa******

Guardar.Enabled = False
End Sub
PD: Base de Dato Oracle
De antemano Gracias. Jeannette.

una curiosidad,comprueba el CursorLocation del Recordset
q estas utillizando,quizas este hay el error