no scusami non era quello l'esempio....ma questo:

Private Type rec
primo As String * 20
sec As String * 20
End Type
Dim pr As rec

Private Sub Command1_Click()

Open "c:\pp.txt" For Random As #1 Len = Len(pr)
pr.primo = Text1.Text
pr.sec = Text2.Text
numerorecord = Seek(1)
Put #1, numerorecord, pr
Close #1
End Sub


PERCHE OGNI OSCRITTURA VIENE POI SOVRASCRITTA???