Cómo cierro una aplicación? Vb.

[amigaa]

Fijense que tengo un sencillo problema que no se como resolver..
Al momento de querer agregar un registro a mi Base de datos me aparece el siguiente error.

***La operación solicitada por la aplicación no está permitida si el objeto esta abierto


Private Sub Form_Load()
cn.Provider = "microsoft.jet.oledb.4.0" 'Cómo cierro la aplicación?
cn.ConnectionString = "monitor2.mdb"
cn.Open
rs.Open "select * from monitor", cn, adOpenKeyset, adLockOptimistic
On Error GoTo Error
rs.MoveFirst
On Error GoTo 0
refrescar
desabilitar
Exit Sub
Error:
End Sub

Ojala y me puedan ayudar.

[frank_vo]

Creo que tu problema puede venir desde antes, antes me paso algo similar y era porque usaba el mismo recordset (para ahorrar recursos) en varias ocaciones sin antes inicializarlo (set rs = new ado.recordset)

Intenta inicializandolo o bien para estar seguro imprime entre
cn.Open
debug.print rs.source
rs.Open...

Esto imprimira en la ventana de debug el comando que fue asociado antes al recordset si es que tiene uno.

Saludos.

[aavg]

Mi humilde opinion es que estas usando el tipo incorrecto de CursorType

Pienso que en lugar de abrir tu recordset como "adOpenKeyset" deberias abrirlo como "adOpenStatic"

prueba asi y puede que funcione.

[amigaa]

Que creen no he podido resolver mi problema le he cambiado ya el "AdopenKeyset" por el "Adopenstatic" y no me dio buen resultado.
Mi recordsert lo tengo inicializado como dim rs as new adodb.recordset

Y por último he intentado cerrar los objetos
Private Sub Form_Load()
cn.Provider = "microsoft.jet.oledb.4.0" 'Esta linea es la qeu el depurador me marca el error.
cn.ConnectionString = "monitor2.mdb"
cn.Open
Debug.Print rs.Source
rs.Open "select * from monitor", cn, adOpenKeyset, adLockOptimistic
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
refrescar
desabilitar
rs.Close 'Se termina de usar se cierra
Else
rs.Close 'Si no encuentro registros se cierra
End If
End Sub

**Pero ahora el error que me marca es la operación solicitada por la aplicación no está permitida si el objeto está cerrado.
De que manera puedo resolver todo esto?
Agradesco de antemano su ayuda.