VB6 ed Access

[giuxmian]

Ciao a tutti, mi chiamo Giuseppe e mi sono iscritto oggi a questa newsgroup.
Ho un problema con VB6 e spero che possiate aiutarmi a risolverlo.

Sto facendo un programma che gestisce le spese personali collegato ad un db Access.

Mi creo le mie form, il db in access, collego i campi del programma VB al db access (utilizzo le funzioni ADODB per far "parlare" VB6 ed Access), scrivo le istruzioni che mi servono e faccio delle prove.
E qui c'è il problema.

Se io creo "n" operazioni di seguito senza uscire dal mio programma, in Access vedo che le operazioni vengono inserite riga per riga senza problemi.

Se però, per esempio, io scrivo tre operazioni di seguito, esco dal programma, rientro e scrivo una nuova operazione, in access vedo che mi viene sovrascritta sempre l'ultimo record cosicchè invece di avere, per
esempio, 4 record in realtà ne ho sempre e solo tre perchè l'ultimo mi viene sovrascritto.
Ho usato le funzioni "Move" ma senza risultato

Da qui sono bloccato e non riesco a capire perchè mi succede questo...

Qualcuno mi sa dare una mano?

Grazie e ciao
Giuseppe

[GudFella]

puoi postare il codice che usi per salvare i dati

[giuxmian]

lo metto qui nel forum?

[giuxmian]

Ciao.....di seguito allego la parte di codice che uso per salvare.

(....faccio vari controlli....)

'Se tutte le condizioni sono giuste, il contatore di verifica arriva a 5 e posso entrare nel salvataggio dell'operazione (Sub Registra)
'Diversamente, con c<5, l'operazione non viene salvata e viene segnalato con un pop-up

If c = 5 Then
MsgBox ("Entro nella sub REGISTRA")
Call registra
Else
MsgBox ("Errore: il form non è stato compilato correttamente")
End If
End Sub

(...entro nella sub Registra dove ho il problema....)

Private Sub registra()

If Adodc1.Recordset.EOF Then 'verifica se è l'ultimo record

Adodc1.Recordset.AddNew '-- se OK scrivi l'operazione
Text1.SetFocus '-- e sposta il cursore sulla casella Titolo
Else '-- altrimenti non è sull'ultimo record
Text1.SetFocus '-- e sposta il cursore sulla casella Titolo

End If
End Sub