Cómo cierro una aplicación? Vb.

[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.