VB Code:
Dim ord(1) As Orders
filenum = FreeFile
Open "C:\Documents and Settings\László Tamás\Asztal\FILEHANDLER2\orders" For Random As filenum Len = 59
ord(0).OrderNo = Ordersek.TextBox1.Value
ord(0).item = Ordersek.TextBox2.Value
ord(0).OrdQty = Ordersek.TextBox3.Value
ord(0).OrdPrice = Ordersek.TextBox4.Value
ord(0).OrdDate = Ordersek.TextBox5.Value
ord(0).ReqDelDate = Ordersek.TextBox6.Value
ord(0).ConfDelDate = Ordersek.TextBox7.Value
ord(0).Over = False
nextrec = (LOF(filenum) / 59) + 1
Put filenum, nextrec, ord(0)
Close filenum