Ok grazie mille....i soldi te li mandero per email! :gren:
posso kiederti un altra cosa???!! mi è venuto un grossissimo dubbio in merito ai file random...mi diresti cosa c'e di sbagliato in questo codice??? spero tu possa risp subito:

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

Private Sub Command1_Click()

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