como cierro un objeto o una aplicación?

amigaa
20 de Mayo del 2004
Tengo una problema... espero y me puedan ayudar.
En el momento de querer guardar un registro en mi base de datos me aparece el siguiente error... La operación solicitada por la aplicación no esta permitida si el objeto esta abierto.
De que forma puedo yo cerrar este objeto.

Private Sub Form_Load()
cn.Provider = "microsoft.jet.oledb.4.0"
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
End If
End Sub

Ojala y me puedan ayudar... Grs.

Charango
20 de Mayo del 2004
la forma de cerrar los objetos ado recorset y ado conection es muy simple

Objeto.close

los cuales deben ser cerrados siempre que termines de usarlos.

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 encontro registros se cierra
End If

espero que te sirva de algo