[VB6] FlexGrid e connessione chiusa o non valida

[ian_dan]

Questo e' il codice che ho inserito ma mi da un errore:
Private Sub cmd_Salva_Click()
ChiudiRs
Rs.Open "Articolo", Conn, adOpenKeyset, adLockOptimistic
If Rs.EOF Then
Rs.AddNew
Rs!Codice = txt_codice.Text
Rs!Descrizione = txt_descrizione.Text
Rs!Categoria = txt_categoria.Text
Rs!Fornitore = txt_fornitore.Text
Rs!Prezzo = txt_PrezzoAcquisto.Text
Rs.Update
End If
End Sub
L'errore in questione e':

run-time 3709 connessione chiusa o non valida nel contesto.impossibile utilizzarla per eseguire l'operazione .

Help....

[Brainjar]

Usa i tag [*CODE] e [*/CODE] (Togli l'asterisco) per postare il
codice.
Poi indica su quale linea di codice ottieni l'errore.

[ian_dan]

Chiedo venia

CODE:
Private Sub cmd_Salva_Click()
ChiudiRs
'riga dove si genera l'errore
Rs.Open "Articolo", Conn, adOpenKeyset, adLockOptimistic
If Rs.EOF Then
Rs.AddNew
Rs!Codice = txt_codice.Text
Rs!Descrizione = txt_descrizione.Text
Rs!Categoria = txt_categoria.Text
Rs!Fornitore = txt_fornitore.Text
Rs!Prezzo = txt_PrezzoAcquisto.Text
Rs.Update
End If
End Sub

[oregon]

A parte il fatto che devi utilizzare i tag indicati per leggere meglio il codice (ma devi utilizzarli correttamente ...), mi sembra che il problema sia determinato da

Conn

che non sembra essere valido quando apri il recordset.

Forse nella ChiudiRs per sbaglio chiudi anche la connessione?

[ian_dan]

no...

[oregon]

Ma sei sicuro che la connessione Conn sia aperta?

Hai fatto un controllo in debug?

[Brainjar]

Allora dove Apri la connessione ?
Per intenderci dove fai : Conn.Open .....