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.