aiuto!!!
Ho creato un file RANDOM "prod2.dat"come posso aggiungere eventuali record senza
cancellare i precedenti gia presenti e creati nel file.
Infatti con questo programma che vi prego di analizzare ho dei problemi e non sono
riuscita ad andare avanti vi prego aiutatemi.

* inoltre POSSO CANCELLARE UN RECORD GIA PRESENTE NEL FILE random come?


Programma:

Private Type r_prod
cod_prod As Integer 'determinato il codice del record (r_prod)
descr As String * 20 'determinato la descr del record (r_prod)
prezzo As Long 'determinato il prezzo del record (r_prod)
End Type


Dim rprod As r_prod 'determinato il record (PRODOTTI)
Dim risp As String 'indicatore di fine ciclo
Dim numfile As Integer 'determinato il file
Dim i As Integer

************************************************** *******************************************


Private Sub carica2()
numfile = FreeFile 'viene assegnato il primo numero del file disponibile
Open "prod2.dat" For Random As numfile Len = Len(rprod) 'viene aperto il file
i = 0

Do
rprod.cod_prod = InputBox("dammi il codice del prodotto(prova 2)")
rprod.descr = InputBox("dammi la descrizione del prodotto(prova 2)")
rprod.prezzo = InputBox("dammi il prezzo del prodotto(prova 2)")

'registrazione del singolo record
i = i + 1
Put #numfile, i, rprod

risp = InputBox("altri prodotti da inserire? (si/no)")
Loop Until risp = "no"

Close numfile 'viene chiuso il file

End Sub

************************************************** *******************************************

Private Sub Form_Load()
carica2
End Sub


************************************************** *******************************************

Private Sub stampa2_Click()
Dim numrec As Integer 'numero di record nel file
numfile = FreeFile
Open "prod2.dat" For Random As numfile Len = Len(rprod)
i = 0

numrec = LOF(numfile) / Len(rprod)


Do While i < numrec
i = i + 1
Get #numfile, i, rprod
Print rprod.cod_prod
Print rprod.descr
Print rprod.prezzo
Loop


Close numfile

End Sub
************************************************** ********************************************