[VB6] Errore chiusura dopo UPDATE

[StegcO]

Private Sub cmd_modifica_avviso_Click()

Dim Nuovo_Avviso As String

Nuovo_Avviso = txt_avviso.Text
Set Rs = Conn.Execute("UPDATE Avviso SET Avviso= '" & Nuovo_Avviso & "' WHERE ID='1' ")
MsgBox "Aggiornato!", vbOKOnly, "Avviso"
txt_avviso.Text = Nuovo_Avviso

End Sub

Ho una TXT contente un testo, tramite un CMD modifico il DB con il nuovo Avviso, solo che, se eseguo la modifica e provo a uscire dalprogramma tramite la croce in alto a destra esce questo messaggio:

L'operazione non è consentita se l'oggetto è chiuso

Se invece non premo il tasto e quidni non aggiorno il DB (Access) l'errore non me lo da..

Ho provato a fare Rs.Close ma non succede niente (anzi mi da errore)

Che può essere?

[oregon]

Scusa ... ma l'errore in quale riga te lo da' di preciso?

Quando c'e' un errore, il programma viene fermato sulla riga dove c'e' l'errore ... devi sempre indicarla ...

[StegcO]

A scusatemi

Private Sub Form_Unload(Cancel As Integer)

Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn = Nothing

End Sub

Errore su Rs.Close

io sapevo che in Form_Unload bisogna mettere le cose che ho messo io di default no?


EDIT: ho tolto Rs.Close e Conn.Close visto che in effetti non apro il recordset, lo eseguo e basta


scustte e garzie