errore recordset disconnesso

[paw]

Ciao..

qualcuno mi sa dire come mai se inserisco il seguente codice :

With rsAppoggio
.AddNew
.Fields("progr").Value = numvoci + 1
.Fields("scadenza").Value = lblScadenza(numvoci)
.Fields("totale").Value = lblTotale(numvoci)
.Fields("banca").Value = lblBanca(numvoci)
.Fields("agenzia").Value = lblAgenzia(numvoci)
.Fields("ditta").Value = lblIntestazione(numvoci)
.Fields("numerofattura").Value = lblNumFattura(numvoci)
.Fields("data").Value = lblData(numvoci)
End With

all'interno di una sub command1_click() funziona mentre se sposto il codice
in una sub di datagrid1.rowcolchange mi dà l'errore 'object required'
sull'istruzione addnew ?

la definizione di questo recordset è all'interno della form_initialize ed è
la seguente :

Dim rsAppoggio As New ADODB.Recordset

With rsAppoggio
.Fields.Append "progr", adSmallInt
.Fields.Append "scadenza", adDate
.Fields.Append "totale", adDouble
.Fields.Append "banca", adChar, 50
.Fields.Append "agenzia", adChar, 30
.Fields.Append "ditta", adChar, 50
.Fields.Append "numerofattura", adInteger
.Fields.Append "data", adDate
.Open
End With

dove sbaglio ?


Grazie

[raffaeu]

scusa ma nel secondo codice non lo metti .addnew!!

e poi io lo metto dopo i campi
.addnew
.update

[paw]

scusa in effetti c'è ' ...
l'avevo solo spostato qualche riga sopra per vedere se funzionava fuori dalla with

[paw]

mi correggo...in effetti avevo già scritto giusto...nel secondo codice non lo metto perchè è la definizione dei campi ..non è giusto ?